From 521914528dd5d39f613f92648bac94b12a56737a Mon Sep 17 00:00:00 2001 From: Sa Liu Date: Thu, 15 May 2008 12:47:36 +0000 Subject: [PATCH] Add standard parameter to macro NAMED_INTCST. From-SVN: r135339 --- gcc/fortran/iso-fortran-env.def | 25 ++++++++++++++++--------- 1 file 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) -- 2.30.2