aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-06-14 11:02:03 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-06-14 11:02:03 -0400
commit42bdfe78ed03e1ba4355edcac43ad2217631ce05 (patch)
tree0892c1fb86341b245af7aa952732899ad9959aa3
parentdf14bac653aa01b375d0fd770c4ebbb44e4d19f7 (diff)
downloadLR-87-42bdfe78ed03e1ba4355edcac43ad2217631ce05.zip
LR-87-42bdfe78ed03e1ba4355edcac43ad2217631ce05.tar.gz
end-of-file marker should no longer be printed.
-rw-r--r--files.f908
1 files changed, 6 insertions, 2 deletions
diff --git a/files.f90 b/files.f90
index c09e535..b1c24dc 100644
--- a/files.f90
+++ b/files.f90
@@ -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