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