PR fortran/25598
* gfortran.dg/backspace_3.f: New test.
* gfortran.dg/backspace_4.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109406
138bc75d-0d04-0410-961f-
82ee72b054a4
2005-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+ PR fortran/25598
+ * gfortran.dg/backspace_3.f: New test.
+ * gfortran.dg/backspace_4.f: New test.
+
+2005-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
PR fortran/24268
* gfortran.dg/fmt_white.f: Update test.
--- /dev/null
+! { dg-do run }
+! PR25598 Error on repeated backspaces.
+! Derived from example given in PR by Dale Ranta
+! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+ integer data
+ data=-1
+ open(unit=11,status='scratch',form='unformatted')
+ write(11)data
+ read(11,end= 1000 )data
+ call abort()
+ 1000 continue
+ backspace 11
+ backspace 11
+ backspace 11
+ read(11,end= 1001 )data
+ 1001 continue
+ if (data.ne.-1) call abort
+ close(11)
+ end
+
--- /dev/null
+! { dg-do run }
+! PR25598 Error on repeated backspaces.
+! Derived from example given in PR by Dale Ranta
+! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
+ integer data
+ data=-1
+ open(unit=11,status='scratch',form='unformatted')
+ write(11)data
+ read(11,end= 1000 )data
+ call abort()
+ 1000 continue
+ backspace 11
+ backspace 11
+ read(11,end= 1001 )data
+ 1001 continue
+ if (data.ne.-1) call abort
+ close(11)
+ end