1! PR 14565
2program unopened_unit_1
3  Integer I,J
4  Do I = 1,10
5    Write(99,*)I
6  End Do
7  Rewind(99)
8  Do I = 1,10
9    Read(99,*)J
10    If (J.ne.I) Call abort
11  End Do
12  Close(99, Status='Delete')
13End program
14
15