blob: db9a42cf34b50390d18bfd202198e7a4b316c533 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do run }
! pr18778 abort on endfile without opening unit
program test
implicit none
integer i
endfile(8)
rewind(8)
read(8,end=0023)i
STOP 1! should never get here
stop
0023 continue
close(8,status='delete')
end
|