Mercurial > hg > CbC > CbC_gcc
comparison gcc/fortran/iso-fortran-env.def @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 /* Copyright (C) 2006-2017 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_F2008_TS) | |
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_F2008_TS) | |
130 | |
131 #undef NAMED_INTCST | |
132 #undef NAMED_KINDARRAY | |
133 #undef NAMED_FUNCTION | |
134 #undef NAMED_SUBROUTINE | |
135 #undef NAMED_DERIVED_TYPE |