gcc/testsuite/gfortran.dg/backspace_6.f

   1 !{ dg-do run }
   2 ! PR26464 File I/O error related to buffering and BACKSPACE
   3 ! Test case derived from case by Dale Ranta.
   4 ! Submitted  by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   5       program test
   6       integer,parameter :: datasize = 5000
   7       dimension idata(datasize)
   8       open (11, status="scratch", form="unformatted")
   9         idata(1)   =  -1
  10         idata(datasize)   =  -2
  11        write(11)idata
  12         idata(1)   =  -2
  13         idata(datasize)   =  -3
  14        write(11)idata
  15         idata(1)   =  -3
  16         idata(datasize)   =  -4
  17        write(11)idata
  18        backspace 11
  19        backspace 11
  20         idata(1)   =  -2
  21         idata(datasize)   =  -3
  22        write(11)idata
  23        read(11,end=        1003 )idata
  24        call abort()
  25  1003  continue
  26        backspace 11
  27        backspace 11
  28        read(11,end=        1004 )idata
  29        if(idata(1).ne.-2 .or.idata(datasize).ne.-3) call abort()
  30        stop
  31  1004  continue
  32        end
  33