26 lines
552 B
Fortran
26 lines
552 B
Fortran
! { 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
|
|
|