gcc/testsuite/gfortran.dg/direct_io_8.f90

   1 ! { dg-do run }
   2 ! PR 34594 - this used to give runtime errors due to an
   3 ! end condition.
   4 program main
   5   implicit none
   6   integer :: iou, i, ir, TEMP_CHANGES
   7   i=44
   8   ir = -42
   9
  10   open(11,file="foo.dat")
  11   ! Try a direct access read on a formatted sequential rile
  12   READ (11, REC = I, ERR = 99) TEMP_CHANGES
  13   call abort
  14 99 continue
  15   ! Variant 2: ir is ok, but does not jump to 99
  16   READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES
  17   call abort
  18
  19 98 continue
  20   if(ir == 0) then
  21      call abort
  22   end if
  23   close(11,status="delete")
  24 end program main
  25