aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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