diff options
-rw-r--r-- | files.f90 | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -203,9 +203,13 @@ contains next_line => null() walker => walker%next - call read_line_text(unit_number, walker%text, iostatus) + call read_line_text(unit_number, walker%text, iostatus) end do + + if(is_file_end_marker(walker%text)) then + walker%text = " " + end if end function load_unit @@ -239,4 +243,4 @@ contains end function load_filename -end module file_handling
\ No newline at end of file +end module file_handling |