diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-09-24 07:42:03 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-09-24 07:42:03 +0200 |
| commit | be1f1ed97b2e41073dc1775d6f13e7597eb22664 (patch) | |
| tree | 7fc5f24d161e97648b35a60ab0f7dcfe64b15cf2 /gcc/fortran/libgfortran.h | |
| parent | 2b3a48378862f67ffea656516857c1517dae7658 (diff) | |
| download | gcc-be1f1ed97b2e41073dc1775d6f13e7597eb22664.zip gcc-be1f1ed97b2e41073dc1775d6f13e7597eb22664.tar.gz gcc-be1f1ed97b2e41073dc1775d6f13e7597eb22664.tar.bz2 | |
re PR fortran/40571 (F2008: ISO_FORTRAN_ENV: Missing constants)
2010-09-24 Tobias Burnus <burnus@net-b.de>
PR fortran/40571
* iso-fortran-env.def: Add NAMED_KINDARRAY with
character_kinds, integer_kinds, logical_kinds and
real_kinds.
* gfortran.h: Add them to iso_fortran_env_symbol.
* libgfortran.h: Rename GFC_INQUIRE_INTERNAL_UNIT to
LIBERROR_INQUIRE_INTERNAL_UNIT and move it from
libgfortran_stat_codes to libgfortran_error_codes.
* module.c (create_int_parameter_array): New function.
(use_iso_fortran_env_module): Use it for
NAMED_KINDARRAY of iso-fortran-env.def.
* trans-decl.c (gfc_get_symbol_decl): Parameter
arrays of intrinsics modules become local static variables.
* intrinsic.texi (ISO_FORTRAN_ENV): Add character_kinds,
integer_kinds, logical_kinds and real_kinds.
2010-09-24 Tobias Burnus <burnus@net-b.de>
PR fortran/40571
* gfortran.dg/iso_fortran_env_7.f90: New.
From-SVN: r164581
Diffstat (limited to 'gcc/fortran/libgfortran.h')
| -rw-r--r-- | gcc/fortran/libgfortran.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/libgfortran.h b/gcc/fortran/libgfortran.h index d9216d3..e26cbf9 100644 --- a/gcc/fortran/libgfortran.h +++ b/gcc/fortran/libgfortran.h @@ -93,6 +93,7 @@ typedef enum LIBERROR_DIRECT_EOR, LIBERROR_SHORT_RECORD, LIBERROR_CORRUPT_FILE, + LIBERROR_INQUIRE_INTERNAL_UNIT, /* Must be different from STAT_STOPPED_IMAGE. */ LIBERROR_LAST /* Not a real error, the last error # + 1. */ } libgfortran_error_codes; @@ -102,8 +103,7 @@ typedef enum GFC_STAT_UNLOCKED = 0, GFC_STAT_LOCKED, GFC_STAT_LOCKED_OTHER_IMAGE, - GFC_STAT_STOPPED_IMAGE, - GFC_INQUIRE_INTERNAL_UNIT /* Must be different from STAT_STOPPED_IMAGE. */ + GFC_STAT_STOPPED_IMAGE } libgfortran_stat_codes; |