diff options
| author | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:47:36 +0000 |
|---|---|---|
| committer | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:47:36 +0000 |
| commit | 521914528dd5d39f613f92648bac94b12a56737a (patch) | |
| tree | b638545648ae0c5fc028c52c504c254e2ec1d55d | |
| parent | eca63c6a360e6a50ebe99c0fef04678965daedcf (diff) | |
| download | gcc-521914528dd5d39f613f92648bac94b12a56737a.zip gcc-521914528dd5d39f613f92648bac94b12a56737a.tar.gz gcc-521914528dd5d39f613f92648bac94b12a56737a.tar.bz2 | |
Add standard parameter to macro NAMED_INTCST.
From-SVN: r135339
| -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 dba2d35..5f2c042 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) |