diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-09-21 11:22:47 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-09-21 11:22:47 +0000 |
| commit | 77747e5f2d1fc0bc4dc4aaf137da9dc158697c81 (patch) | |
| tree | 2ab3db1f578dda1d38b09b2e3445fa9d8feafe1f /libgfortran | |
| parent | b6ad178e2ee4c3fdcf7e231f51f83aebc107554f (diff) | |
| download | gcc-77747e5f2d1fc0bc4dc4aaf137da9dc158697c81.zip gcc-77747e5f2d1fc0bc4dc4aaf137da9dc158697c81.tar.gz gcc-77747e5f2d1fc0bc4dc4aaf137da9dc158697c81.tar.bz2 | |
re PR libfortran/17286 (namelist containing more than one value cannot contain whitespace or newlines for READ)
2004-09-21 Bud Davis <bdavis9659@comcast.net>
PR fortran/17286
* io/list_read.c (namelist_read): ignore spaces after
the '=' for namelist reads.
2004-09-21 Bud Davis <bdavis9659@comcast.net>
PR fortran/17286
* gfortran.dg/pr17286.f90: New test.
From-SVN: r87799
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index a75b1e4..2908775 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2004-09-21 Bud Davis <bdavis9659@comcast.net> + + PR fortran/17286 + * io/list_read.c (namelist_read): ignore spaces after + the '=' for namelist reads. + 2004-09-15 Aaron W. LaFramboise <aaronavay62@aaronwl.com> * config.h.in: Regenerate. diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 51767d0..80078a8 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -1496,6 +1496,10 @@ restart: len = nl->len; p = nl->mem_pos; + + /* skip any blanks or tabs after the = */ + eat_spaces (); + switch (nl->type) { case BT_INTEGER: |