diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-06-14 11:02:03 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-06-14 11:02:03 -0400 |
| commit | 42bdfe78ed03e1ba4355edcac43ad2217631ce05 (patch) | |
| tree | 0892c1fb86341b245af7aa952732899ad9959aa3 | |
| parent | df14bac653aa01b375d0fd770c4ebbb44e4d19f7 (diff) | |
| download | LR-87-42bdfe78ed03e1ba4355edcac43ad2217631ce05.tar.gz LR-87-42bdfe78ed03e1ba4355edcac43ad2217631ce05.zip | |
end-of-file marker should no longer be printed.
| -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 |