]>
Commit | Line | Data |
---|---|---|
d234d788 | 1 | /* Copyright (C) 2006, 2007 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 | ||
22 | /* The arguments to NAMED_INTCST are: | |
23 | -- an internal name | |
24 | -- the symbol name in the module, as seen by Fortran code | |
25 | -- the value it has */ | |
26 | ||
27 | NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \ | |
28 | gfc_character_storage_size) | |
29 | NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", 0) | |
30 | NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8) | |
31 | NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", 5) | |
32 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", -1) | |
33 | NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", -2) | |
34 | NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \ | |
35 | gfc_numeric_storage_size) | |
36 | NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", 6) |