git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Paul Brook 2004-08-31 14:56:09 +00:00 committed by Paul Brook
parent d7177ab25e
commit c789f36b21
4 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2004-08-31 Paul Brook <paul@codesourcery.com>
* gfortran.dg/list_read_1.f90: New file.
2004-08-30 Mark Mitchell <mark@codesourcery.com> 2004-08-30 Mark Mitchell <mark@codesourcery.com>
* g++.dg/opt/loop1.C: XFAIL. * g++.dg/opt/loop1.C: XFAIL.

22
gcc/testsuite/gfortran.dg/list_read_1.f90 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do run }
! Program to test terminators in list-directed input
program list_read_1
character(len=5) :: s
open (unit=11, status="SCRATCH")
! The / terminator was causing the next value to be skipped.
write (11, '(a)') " 42 /"
write (11, '(a)') " 43"
write (11, '(a)') " 44"
rewind(11)
read (11, *) i
if (i .ne. 42) call abort
read (11, *) i
if (i .ne. 43) call abort
read (11, *) i
if (i .ne. 44) call abort
close (11)
end

4
libgfortran/ChangeLog
View File

@ -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> 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* libgfortran.h: Replace 'gfc_strlen_type' by * libgfortran.h: Replace 'gfc_strlen_type' by

1
libgfortran/io/list_read.c
View File

@ -210,6 +210,7 @@ eat_separator (void)
case '/': case '/':
input_complete = 1; input_complete = 1;
next_record (0); next_record (0);
at_eol = 1;
break; break;
case '\n': case '\n':