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
|
