blob: e0514308650e5f1eb7b4895e9bf62aef7051af30 (
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_direct_io_8.dat")
! Try a direct access read on a formatted sequential rile
READ (11, REC = I, ERR = 99) TEMP_CHANGES
STOP 1
99 continue
! Variant 2: ir is ok, but does not jump to 99
READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES
STOP 2
98 continue
if(ir == 0) then
STOP 3
end if
close(11,status="delete")
end program main
|
