1 | /* Copyright (C) 2006-2023 Free Software Foundation, Inc. |
2 | |
3 | This file is part of GCC. |
4 | |
5 | GCC is free software; you can redistribute it and/or modify it under |
6 | the terms of the GNU General Public License as published by the Free |
7 | Software Foundation; either version 3, or (at your option) any later |
8 | version. |
9 | |
10 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY |
11 | WARRANTY; without even the implied warranty of MERCHANTABILITY or |
12 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
13 | for more details. |
14 | |
15 | You should have received a copy of the GNU General Public License |
16 | along with GCC; see the file COPYING3. If not see |
17 | <http://www.gnu.org/licenses/>. */ |
18 | |
19 | /* This file contains the definition of the named integer constants provided |
20 | by the Fortran 2003 ISO_FORTRAN_ENV intrinsic module. */ |
21 | |
22 | #ifndef NAMED_INTCST |
23 | # define NAMED_INTCST(a,b,c,d) |
24 | #endif |
25 | |
26 | #ifndef NAMED_KINDARRAY |
27 | # define NAMED_KINDARRAY(a,b,c,d) |
28 | #endif |
29 | |
30 | #ifndef NAMED_SUBROUTINE |
31 | # define NAMED_SUBROUTINE(a,b,c,d) |
32 | #endif |
33 | |
34 | #ifndef NAMED_FUNCTION |
35 | # define NAMED_FUNCTION(a,b,c,d) |
36 | #endif |
37 | |
38 | /* The arguments to NAMED_INTCST are: |
39 | -- an internal name |
40 | -- the symbol name in the module, as seen by Fortran code |
41 | -- the value it has |
42 | -- the standard that supports this type */ |
43 | |
44 | NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_INT_KIND, "atomic_int_kind" , \ |
45 | gfc_atomic_int_kind, GFC_STD_F2008) |
46 | NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_LOGICAL_KIND, "atomic_logical_kind" , \ |
47 | gfc_atomic_logical_kind, GFC_STD_F2008) |
48 | NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size" , \ |
49 | gfc_character_storage_size, GFC_STD_F2003) |
50 | NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit" , GFC_STDERR_UNIT_NUMBER, \ |
51 | GFC_STD_F2003) |
52 | NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size" , 8, \ |
53 | GFC_STD_F2003) |
54 | NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit" , GFC_STDIN_UNIT_NUMBER, \ |
55 | GFC_STD_F2003) |
56 | NAMED_INTCST (ISOFORTRANENV_INT8, "int8" , \ |
57 | gfc_get_int_kind_from_width_isofortranenv (8), GFC_STD_F2008) |
58 | NAMED_INTCST (ISOFORTRANENV_INT16, "int16" , \ |
59 | gfc_get_int_kind_from_width_isofortranenv (16), GFC_STD_F2008) |
60 | NAMED_INTCST (ISOFORTRANENV_INT32, "int32" , \ |
61 | gfc_get_int_kind_from_width_isofortranenv (32), GFC_STD_F2008) |
62 | NAMED_INTCST (ISOFORTRANENV_INT64, "int64" , \ |
63 | gfc_get_int_kind_from_width_isofortranenv (64), GFC_STD_F2008) |
64 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end" , LIBERROR_END, \ |
65 | GFC_STD_F2003) |
66 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor" , LIBERROR_EOR, \ |
67 | GFC_STD_F2003) |
68 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_INQUIRE_INTERNAL_UNIT, \ |
69 | "iostat_inquire_internal_unit" , LIBERROR_INQUIRE_INTERNAL_UNIT, \ |
70 | GFC_STD_F2008) |
71 | NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size" , \ |
72 | gfc_numeric_storage_size, GFC_STD_F2003) |
73 | NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit" , GFC_STDOUT_UNIT_NUMBER, \ |
74 | GFC_STD_F2003) |
75 | NAMED_INTCST (ISOFORTRANENV_REAL32, "real32" , \ |
76 | gfc_get_real_kind_from_width_isofortranenv (32), GFC_STD_F2008) |
77 | NAMED_INTCST (ISOFORTRANENV_REAL64, "real64" , \ |
78 | gfc_get_real_kind_from_width_isofortranenv (64), GFC_STD_F2008) |
79 | NAMED_INTCST (ISOFORTRANENV_REAL128, "real128" , \ |
80 | gfc_get_real_kind_from_width_isofortranenv (128), GFC_STD_F2008) |
81 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED, "stat_locked" , \ |
82 | GFC_STAT_LOCKED, GFC_STD_F2008) |
83 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED_OTHER_IMAGE, \ |
84 | "stat_locked_other_image" , \ |
85 | GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008) |
86 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_STOPPED_IMAGE, "stat_stopped_image" , \ |
87 | GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008) |
88 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image" , \ |
89 | GFC_STAT_FAILED_IMAGE, GFC_STD_F2018) |
90 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_UNLOCKED, "stat_unlocked" , \ |
91 | GFC_STAT_UNLOCKED, GFC_STD_F2008) |
92 | |
93 | |
94 | /* The arguments to NAMED_KINDARRAY are: |
95 | -- an internal name |
96 | -- the symbol name in the module, as seen by Fortran code |
97 | -- the gfortran variable containing the information |
98 | -- the Fortran standard */ |
99 | |
100 | NAMED_KINDARRAY (ISOFORTRAN_CHARACTER_KINDS, "character_kinds" , \ |
101 | gfc_character_kinds, GFC_STD_F2008) |
102 | NAMED_KINDARRAY (ISOFORTRAN_INTEGER_KINDS, "integer_kinds" , \ |
103 | gfc_integer_kinds, GFC_STD_F2008) |
104 | NAMED_KINDARRAY (ISOFORTRAN_LOGICAL_KINDS, "logical_kinds" , \ |
105 | gfc_logical_kinds, GFC_STD_F2008) |
106 | NAMED_KINDARRAY (ISOFORTRAN_REAL_KINDS, "real_kinds" , \ |
107 | gfc_real_kinds, GFC_STD_F2008) |
108 | |
109 | /* The arguments to NAMED_FUNCTIONS are: |
110 | -- the ISYM |
111 | -- the symbol name in the module, as seen by Fortran code |
112 | -- the Fortran standard */ |
113 | |
114 | NAMED_FUNCTION (ISOFORTRAN_COMPILER_OPTIONS, "compiler_options" , \ |
115 | GFC_ISYM_COMPILER_OPTIONS, GFC_STD_F2008) |
116 | NAMED_FUNCTION (ISOFORTRAN_COMPILER_VERSION, "compiler_version" , \ |
117 | GFC_ISYM_COMPILER_VERSION, GFC_STD_F2008) |
118 | |
119 | #ifndef NAMED_DERIVED_TYPE |
120 | # define NAMED_DERIVED_TYPE(a,b,c,d) |
121 | #endif |
122 | |
123 | NAMED_DERIVED_TYPE (ISOFORTRAN_LOCK_TYPE, "lock_type" , \ |
124 | get_int_kind_from_node (ptr_type_node), GFC_STD_F2008) |
125 | |
126 | NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type" , \ |
127 | flag_coarray == GFC_FCOARRAY_LIB |
128 | ? get_int_kind_from_node (ptr_type_node) |
129 | : gfc_default_integer_kind, GFC_STD_F2018) |
130 | |
131 | NAMED_DERIVED_TYPE (ISOFORTRAN_TEAM_TYPE, "team_type" , \ |
132 | flag_coarray == GFC_FCOARRAY_LIB |
133 | ? get_int_kind_from_node (ptr_type_node) |
134 | : gfc_default_integer_kind, GFC_STD_F2018) |
135 | |
136 | #undef NAMED_INTCST |
137 | #undef NAMED_KINDARRAY |
138 | #undef NAMED_FUNCTION |
139 | #undef NAMED_SUBROUTINE |
140 | #undef NAMED_DERIVED_TYPE |
141 | |