re PR fortran/44477 (Sequential I/O with END FILE: File position should be at EoF)

2010-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/44477
	* gfortran.dg/eof_3.f90
	* gfortran.dg/endfile_2.f90
	* gfortran.dg/endfile_4.f90
	* gfortran.dg/endfile_3.f90

From-SVN: r161021

gcc/testsuite/ChangeLog

+2010-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/44477
+	* gfortran.dg/eof_3.f90
+	* gfortran.dg/endfile_2.f90
+	* gfortran.dg/endfile_4.f90
+	* gfortran.dg/endfile_3.f90
+
 2010-06-18  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
 	PR c++/41090

gcc/testsuite/gfortran.dg/endfile_2.f90

@@ -5,7 +5,7 @@
       integer i
       endfile(8)
       rewind(8)
-      read(8,end=0023)i
+      read(8,*,end=0023)i
       call abort ! should never get here
       stop
  0023 continue

gcc/testsuite/gfortran.dg/endfile_3.f90

+! { dg-do run }
+! pr44477 READ/WRITE not allowed after ENDFILE 
+!-------------------------------------------
+  open(10, form='formatted', &
+    action='write', position='rewind', status="scratch")
+  endfile(10)
+  write(10,'(a)') "aa" ! { dg-shouldfail "Cannot perform ENDFILE" }
+end
+

gcc/testsuite/gfortran.dg/endfile_4.f90

+! { dg-do run }
+! pr44477 ENDFILE not allowed after ENDFILE
+!-------------------------------------------
+  open(10, form='formatted', &
+    action='write', position='rewind', status="scratch")
+  endfile(10)
+  endfile(10) ! { dg-shouldfail "Cannot perform ENDFILE" }
+end

gcc/testsuite/gfortran.dg/eof_3.f90

@@ -4,5 +4,6 @@ program test
 open(unit=32,status="scratch",access="sequential",form="unformatted")
 read(32,end=100)
 100 continue
+backspace(32)
 write (32)
 end program test