＜CLOSE Example Program＞

Program close_example
  Character(80) :: line
  Open (1, File='TEMP', Status='OLD', Position='REWIND')
  n_lines = 0
  Do
    Read (1, '(A)', End=100) line
    n_lines = n_lines + 1
  End Do
100 Continue
  Print *, n_lines
  Close (1)
End Program

＜File: TEMP＞

1
2
5

■ Execution Results

 3