1! { dg-do run }
2! PR 34594 - this used to give runtime errors due to an
3! end condition.
4program 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
1499 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
1998 continue
20  if(ir == 0) then
21     call abort
22  end if
23  close(11,status="delete")
24end program main
25
26