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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a1495af866a35c72db8bbce791341e611ec61e08..2d03afbad6fd786be9d2585a51aa0314f23a2d44 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/read_x_past.f b/gcc/testsuite/gfortran.dg/read_x_past.f
new file mode 100644 (file)
index 0000000..4a6d053
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/read_x_past.f
@@ -0,0 +1,17 @@
+! { 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