Open(1,File='TEMP',Status='OLD')
Rewind 1
n_lines = 0
Do
Read(1,'( )',End=10)
n_lines = n_lines + 1
End Do
10 Continue
Print *, n_lines
Close (1)
End
File contents: TEMP1
2
5
Execution Results3
<Example Program>
| Program rewind_example Open(1,File='TEMP',Status='OLD') Rewind 1 n_lines = 0 Do Read(1,'( )',End=10) n_lines = n_lines + 1 End Do 10 Continue Print *, n_lines Close (1) End |
|
| File contents: TEMP 1 2 5 Execution Results3 |
|