1/* Copyright (C) 2006-2023 Free Software Foundation, Inc.
2
3This file is part of GCC.
4
5GCC is free software; you can redistribute it and/or modify it under
6the terms of the GNU General Public License as published by the Free
7Software Foundation; either version 3, or (at your option) any later
8version.
9
10GCC is distributed in the hope that it will be useful, but WITHOUT ANY
11WARRANTY; without even the implied warranty of MERCHANTABILITY or
12FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13for more details.
14
15You should have received a copy of the GNU General Public License
16along 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
44NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_INT_KIND, "atomic_int_kind", \
45 gfc_atomic_int_kind, GFC_STD_F2008)
46NAMED_INTCST (ISOFORTRANENV_FILE_ATOMIC_LOGICAL_KIND, "atomic_logical_kind", \
47 gfc_atomic_logical_kind, GFC_STD_F2008)
48NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \
49 gfc_character_storage_size, GFC_STD_F2003)
50NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", GFC_STDERR_UNIT_NUMBER, \
51 GFC_STD_F2003)
52NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8, \
53 GFC_STD_F2003)
54NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", GFC_STDIN_UNIT_NUMBER, \
55 GFC_STD_F2003)
56NAMED_INTCST (ISOFORTRANENV_INT8, "int8", \
57 gfc_get_int_kind_from_width_isofortranenv (8), GFC_STD_F2008)
58NAMED_INTCST (ISOFORTRANENV_INT16, "int16", \
59 gfc_get_int_kind_from_width_isofortranenv (16), GFC_STD_F2008)
60NAMED_INTCST (ISOFORTRANENV_INT32, "int32", \
61 gfc_get_int_kind_from_width_isofortranenv (32), GFC_STD_F2008)
62NAMED_INTCST (ISOFORTRANENV_INT64, "int64", \
63 gfc_get_int_kind_from_width_isofortranenv (64), GFC_STD_F2008)
64NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", LIBERROR_END, \
65 GFC_STD_F2003)
66NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", LIBERROR_EOR, \
67 GFC_STD_F2003)
68NAMED_INTCST (ISOFORTRANENV_IOSTAT_INQUIRE_INTERNAL_UNIT, \
69 "iostat_inquire_internal_unit", LIBERROR_INQUIRE_INTERNAL_UNIT, \
70 GFC_STD_F2008)
71NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \
72 gfc_numeric_storage_size, GFC_STD_F2003)
73NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER, \
74 GFC_STD_F2003)
75NAMED_INTCST (ISOFORTRANENV_REAL32, "real32", \
76 gfc_get_real_kind_from_width_isofortranenv (32), GFC_STD_F2008)
77NAMED_INTCST (ISOFORTRANENV_REAL64, "real64", \
78 gfc_get_real_kind_from_width_isofortranenv (64), GFC_STD_F2008)
79NAMED_INTCST (ISOFORTRANENV_REAL128, "real128", \
80 gfc_get_real_kind_from_width_isofortranenv (128), GFC_STD_F2008)
81NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED, "stat_locked", \
82 GFC_STAT_LOCKED, GFC_STD_F2008)
83NAMED_INTCST (ISOFORTRANENV_FILE_STAT_LOCKED_OTHER_IMAGE, \
84 "stat_locked_other_image", \
85 GFC_STAT_LOCKED_OTHER_IMAGE, GFC_STD_F2008)
86NAMED_INTCST (ISOFORTRANENV_FILE_STAT_STOPPED_IMAGE, "stat_stopped_image", \
87 GFC_STAT_STOPPED_IMAGE, GFC_STD_F2008)
88NAMED_INTCST (ISOFORTRANENV_FILE_STAT_FAILED_IMAGE, "stat_failed_image", \
89 GFC_STAT_FAILED_IMAGE, GFC_STD_F2018)
90NAMED_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
100NAMED_KINDARRAY (ISOFORTRAN_CHARACTER_KINDS, "character_kinds", \
101 gfc_character_kinds, GFC_STD_F2008)
102NAMED_KINDARRAY (ISOFORTRAN_INTEGER_KINDS, "integer_kinds", \
103 gfc_integer_kinds, GFC_STD_F2008)
104NAMED_KINDARRAY (ISOFORTRAN_LOGICAL_KINDS, "logical_kinds", \
105 gfc_logical_kinds, GFC_STD_F2008)
106NAMED_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
114NAMED_FUNCTION (ISOFORTRAN_COMPILER_OPTIONS, "compiler_options", \
115 GFC_ISYM_COMPILER_OPTIONS, GFC_STD_F2008)
116NAMED_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
123NAMED_DERIVED_TYPE (ISOFORTRAN_LOCK_TYPE, "lock_type", \
124 get_int_kind_from_node (ptr_type_node), GFC_STD_F2008)
125
126NAMED_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
131NAMED_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

source code of gcc/fortran/iso-fortran-env.def