diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-20 07:14:50 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-05-20 07:14:50 +0000 |
| commit | 25292a1bf11f04826b61027db2808a735d26f62a (patch) | |
| tree | 72d7a6767678cfbc49746dd70c1193e00863af45 /libgfortran/io/io.h | |
| parent | 8bf6519618696ba28021cedb319a1f784991f962 (diff) | |
| download | gcc-25292a1bf11f04826b61027db2808a735d26f62a.zip gcc-25292a1bf11f04826b61027db2808a735d26f62a.tar.gz gcc-25292a1bf11f04826b61027db2808a735d26f62a.tar.bz2 | |
re PR libfortran/24459 ([4.1 Only] gfortran namelist problem)
2006-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/24459
* io/list_read.c (nml_parse_qualifier): Leave loop spec end value
at default value unless -std=f95 or if an array section
is specified in namelist input. Warn if -pedantic.
* io/io.h (st_parameter_dt): Add expanded_read flag.
From-SVN: r113924
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index e7581a6..2d3c185 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -432,7 +432,9 @@ typedef struct st_parameter_dt struct format_data *fmt; jmp_buf *eof_jump; namelist_info *ionml; - + /* A flag used to identify when a non-standard expanded namelist read + has occurred. */ + int expanded_read; /* Storage area for values except for strings. Must be large enough to hold a complex value (two reals) of the largest kind. */ |