Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
unopened_unit_1.f90
blob: 66895b02af16499e08cb9cc095bf3225fb160e3d [
file
] [
log
] [
blame
]
!
PR
14565
program unopened_unit_1
Integer
I
,
J
Do
I
=
1
,
10
Write
(
99
,*)
I
End
Do
Rewind
(
99
)
Do
I
=
1
,
10
Read
(
99
,*)
J
If
(
J
.
ne
.
I
)
Call
abort
End
Do
Close
(
99
,
Status
=
'Delete'
)
End
program