summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/direct_io_8.f90
blob: 5e384a1cfa327e86d0b2be9a13aab143cf291cee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
! { 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