diff options
| author | saliu <saliu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-15 12:47:36 +0000 |
|---|---|---|
| committer | saliu <saliu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-15 12:47:36 +0000 |
| commit | d4fa49c61ff87ff26bc2a300a2ebae6a0017f6be (patch) | |
| tree | b638545648ae0c5fc028c52c504c254e2ec1d55d | |
| parent | 777e03738294b8df81031ab757d027a9f2f35e18 (diff) | |
| download | ppe42-gcc-d4fa49c61ff87ff26bc2a300a2ebae6a0017f6be.tar.gz ppe42-gcc-d4fa49c61ff87ff26bc2a300a2ebae6a0017f6be.zip | |
Add standard parameter to macro NAMED_INTCST.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135339 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/iso-fortran-env.def | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/gcc/fortran/iso-fortran-env.def b/gcc/fortran/iso-fortran-env.def index dba2d3521ad..5f2c04231c5 100644 --- a/gcc/fortran/iso-fortran-env.def +++ b/gcc/fortran/iso-fortran-env.def @@ -22,15 +22,22 @@ along with GCC; see the file COPYING3. If not see /* The arguments to NAMED_INTCST are: -- an internal name -- the symbol name in the module, as seen by Fortran code - -- the value it has */ + -- the value it has + -- the standard that supports this type */ NAMED_INTCST (ISOFORTRANENV_CHARACTER_STORAGE_SIZE, "character_storage_size", \ - gfc_character_storage_size) -NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", GFC_STDERR_UNIT_NUMBER) -NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8) -NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", GFC_STDIN_UNIT_NUMBER) -NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", LIBERROR_END) -NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", LIBERROR_EOR) + gfc_character_storage_size, GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_ERROR_UNIT, "error_unit", GFC_STDERR_UNIT_NUMBER, \ + GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_FILE_STORAGE_SIZE, "file_storage_size", 8, \ + GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_INPUT_UNIT, "input_unit", GFC_STDIN_UNIT_NUMBER, \ + GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_IOSTAT_END, "iostat_end", LIBERROR_END, \ + GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_IOSTAT_EOR, "iostat_eor", LIBERROR_EOR, \ + GFC_STD_F2003) NAMED_INTCST (ISOFORTRANENV_NUMERIC_STORAGE_SIZE, "numeric_storage_size", \ - gfc_numeric_storage_size) -NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER) + gfc_numeric_storage_size, GFC_STD_F2003) +NAMED_INTCST (ISOFORTRANENV_OUTPUT_UNIT, "output_unit", GFC_STDOUT_UNIT_NUMBER, \ + GFC_STD_F2003) |
