gcc/testsuite/gfortran.dg/write_direct_eor.f90

   1 ! { dg-do run }
   2 ! PR26509 : Writing beyond fixed length direct access records.
   3 ! Test case derived from PR.
   4 ! Submitted  by Jerry Delisle <jvdelisle@gcc.gnu.org>.
   5 program testrecl
   6       implicit none
   7       open(unit = 10, form = 'unformatted', access = 'direct', recl = 4)
   8       write(unit=10,rec=1, err=100) 1d0
   9       call abort()
  10  100  continue
  11       close(unit=10, status='delete')
  12       end