From 77747e5f2d1fc0bc4dc4aaf137da9dc158697c81 Mon Sep 17 00:00:00 2001 From: Bud Davis Date: Tue, 21 Sep 2004 11:22:47 +0000 Subject: re PR libfortran/17286 (namelist containing more than one value cannot contain whitespace or newlines for READ) 2004-09-21 Bud Davis PR fortran/17286 * io/list_read.c (namelist_read): ignore spaces after the '=' for namelist reads. 2004-09-21 Bud Davis PR fortran/17286 * gfortran.dg/pr17286.f90: New test. From-SVN: r87799 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/list_read.c | 4 ++++ 2 files changed, 10 insertions(+) (limited to 'libgfortran') 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 + + PR fortran/17286 + * io/list_read.c (namelist_read): ignore spaces after + the '=' for namelist reads. + 2004-09-15 Aaron W. LaFramboise * 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: -- cgit v1.1