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

gcc/testsuite/ChangeLog

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

gcc/testsuite/gfortran.dg/list_read_1.f90

+! { 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
+

libgfortran/ChangeLog

+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

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':