]>
Commit | Line | Data |
---|---|---|
83ffe9cd | 1 | /* Copyright (C) 2006-2023 Free Software Foundation, Inc. |
39f87c03 FXC |
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 | |
d234d788 | 7 | Software Foundation; either version 3, or (at your option) any later |
39f87c03 FXC |
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 | |
d234d788 NC |
16 | along with GCC; see the file COPYING3. If not see |
17 | <http://www.gnu.org/licenses/>. */ | |
39f87c03 FXC |
18 | |
19 | /* This file contains the definition of the named integer constants provided | |
20 | by the Fortran 2003 ISO_FORTRAN_ENV intrinsic module. */ | |
21 | ||
be1f1ed9 TB |
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 | ||
cadddfdd TB |
30 | #ifndef NAMED_SUBROUTINE |
31 | # define NAMED_SUBROUTINE(a,b,c,d) | |
32 | #endif | |
33 | ||
d000aa67 TB |
34 | #ifndef NAMED_FUNCTION |
35 | # define NAMED_FUNCTION(a,b,c,d) | |
36 | #endif | |
be1f1ed9 | 37 | |
39f87c03 FXC |
38 | /* The arguments to NAMED_INTCST are: |
39 | -- an internal name | |
40 | -- the symbol name in the module, as seen by Fortran code | |
52191452 SL |
41 | -- the value it has |
42 | -- the standard that supports this type */ | |
39f87c03 | 43 | |
385e8144 | 44 | NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_INT_KIND, "atomic_int_kind", \ |
da661a58 | 45 | gfc_atomic_int_kind, GFC_STD_F2008) |
385e8144 | 46 | NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_LOGICAL_KIND, "atomic_logical_kind", \ |
da661a58 | 47 | gfc_atomic_logical_kind, GFC_STD_F2008) |
39f87c03 | 48 | NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \ |
52191452 SL |
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) | |
e0a6661b FXC |
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) | |
52191452 SL |
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) | |
385e8144 | 68 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_INQUIRE_INTERNAL_UNIT, \ |
be1f1ed9 | 69 | "iostat_inquire_internal_unit", LIBERROR_INQUIRE_INTERNAL_UNIT, \ |
385e8144 | 70 | GFC_STD_F2008) |
39f87c03 | 71 | NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \ |
52191452 SL |
72 | gfc_numeric_storage_size, GFC_STD_F2003) |
73 | NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER, \ | |
74 | GFC_STD_F2003) | |
e0a6661b FXC |
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) | |
385e8144 TB |
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) | |
7f4aaf91 | 88 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image", \ |
286f737c | 89 | GFC_STAT_FAILED_IMAGE, GFC_STD_F2018) |
385e8144 TB |
90 | NAMED_INTCST (ISOFORTRANENV_FILE_STAT_UNLOCKED, "stat_unlocked", \ |
91 | GFC_STAT_UNLOCKED, GFC_STD_F2008) | |
92 | ||
be1f1ed9 TB |
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 | ||
d000aa67 TB |
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 | ||
fea54935 TB |
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) | |
d000aa67 | 125 | |
5df445a2 TB |
126 | NAMED_DERIVED_TYPE (ISOFORTRAN_EVENT_TYPE, "event_type", \ |
127 | flag_coarray == GFC_FCOARRAY_LIB | |
128 | ? get_int_kind_from_node (ptr_type_node) | |
286f737c | 129 | : gfc_default_integer_kind, GFC_STD_F2018) |
5df445a2 | 130 | |
f8862a1b DR |
131 | NAMED_DERIVED_TYPE (ISOFORTRAN_TEAM_TYPE, "team_type", \ |
132 | flag_coarray == GFC_FCOARRAY_LIB | |
133 | ? get_int_kind_from_node (ptr_type_node) | |
286f737c | 134 | : gfc_default_integer_kind, GFC_STD_F2018) |
f8862a1b | 135 | |
be1f1ed9 TB |
136 | #undef NAMED_INTCST |
137 | #undef NAMED_KINDARRAY | |
d000aa67 | 138 | #undef NAMED_FUNCTION |
cadddfdd | 139 | #undef NAMED_SUBROUTINE |
fea54935 | 140 | #undef NAMED_DERIVED_TYPE |