diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-08-31 14:56:09 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-31 14:56:09 +0000 |
| commit | c789f36b216c9318b7f5fadb3a632f91513e3156 (patch) | |
| tree | c1642cc23568ef73452f24fc424e0b5dddae9522 /libgfortran | |
| parent | d7177ab25e9cfef12aa2b0e2a2f68d7f3c81735a (diff) | |
| download | gcc-c789f36b216c9318b7f5fadb3a632f91513e3156.zip gcc-c789f36b216c9318b7f5fadb3a632f91513e3156.tar.gz gcc-c789f36b216c9318b7f5fadb3a632f91513e3156.tar.bz2 | |
list_read.c (eat_separator): Set at_eo when a '/' is seen.
* list_read.c (eat_separator): Set at_eo when a '/' is seen.
testsuite/
* gfortran.dg/list_read_1.f90: New file.
From-SVN: r86830
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/list_read.c | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ecc104e..28329d2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2004-08-31 Paul Brook <paul@codesourcery.com> + + * list_read.c (eat_separator): Set at_eo when a '/' is seen. + 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> * libgfortran.h: Replace 'gfc_strlen_type' by diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 95b5b88..8b00a5e 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -210,6 +210,7 @@ eat_separator (void) case '/': input_complete = 1; next_record (0); + at_eol = 1; break; case '\n': |