Open (File='TEMP',Position='Rewind',Unit=17)
Do
Read (17,*,End=10) i
Print *,i
End Do
10 Continue
Close (17)
End
File: TEMP1
2
5
Execution Results1
2
5
<Example Program>
|
Program unit_example Open (File='TEMP',Position='Rewind',Unit=17) Do Read (17,*,End=10) i Print *,i End Do 10 Continue Close (17) End |
|
| File: TEMP 1 2 5 Execution Results1 2 5 |
|