From 889dec28d3d43d0a56fae1c248db677b4511fbb2 Mon Sep 17 00:00:00 2001 From: bdavis Date: Tue, 21 Sep 2004 11:22:47 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87799 138bc75d-0d04-0410-961f-82ee72b054a4 --- 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 a75b1e4b6bf..2908775a827 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 51767d07672..80078a87999 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.2.1