blob: 66895b02af16499e08cb9cc095bf3225fb160e3d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! 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
|