direct_io_8.f90

来自「用于进行gcc测试」· F90 代码 · 共 26 行

! { dg-do run }
! PR 34594 - this used to give runtime errors due to an
! end condition.
program main
  implicit none
  integer :: iou, i, ir, TEMP_CHANGES
  i=44
  ir = -42

  open(11,file="foo.dat")
  ! Try a direct access read on a formatted sequential rile
  READ (11, REC = I, ERR = 99) TEMP_CHANGES
  call abort
99 continue
  ! Variant 2: ir is ok, but does not jump to 99
  READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES
  call abort

98 continue
  if(ir == 0) then
     call abort
  end if
  close(11,status="delete")
end program main