re PR libfortran/26661 (Sequential formatted read goes too far)

2006-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/26661
	PR libgfortran/26880
	* gfortran.dg/read_x_past.f: New test.

From-SVN: r112410

gcc/testsuite/ChangeLog

+2006-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/26661
+	PR libgfortran/26880
+	* gfortran.dg/read_x_past.f: New test.
+
 2006-03-26  Geoffrey Keating  <geoffk@apple.com>
 
 	* gcc.dg/darwin-20040809-2.c: Don't expect default debugging

gcc/testsuite/gfortran.dg/read_x_past.f

+! { dg-do run }
+! { dg-options -w }
+! PR 26661 : Test reading X's past file end with no LF or CR.
+! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag.
+! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
+      implicit none
+      character(3) a(4)
+      integer i
+      open (10)
+ 10   format(A,$)  ! This is not pedantic
+      write(10,10)' abc def ghi jkl'
+      rewind(10)
+      read(10,20)(a(i),i=1,4)
+      if (a(4).ne."jkl") call abort()
+ 20   format(1x,a3,1x,a3,1x,a3,1x,a3,10x)
+      close(10, status="delete")
+      end