aboutsummaryrefslogtreecommitdiff
path: root/files.f90
diff options
context:
space:
mode:
Diffstat (limited to 'files.f90')
-rw-r--r--files.f9010
1 files changed, 5 insertions, 5 deletions
diff --git a/files.f90 b/files.f90
index cbdb44d..0ca43a6 100644
--- a/files.f90
+++ b/files.f90
@@ -26,10 +26,10 @@ contains
end function is_file_end_marker
- function read_line_text(unit_number, iostatus) result(res)
+ subroutine read_line_text(unit_number, res, iostatus)
implicit none
- character(len=:), allocatable::res
+ character(len=:), allocatable, intent(out)::res
integer, intent(in)::unit_number
integer, intent(out)::iostatus
integer::startpos, endpos, length, i
@@ -64,7 +64,7 @@ contains
end do
end if
- end function read_line_text
+ end subroutine read_line_text
subroutine process_line(single_line, file_type, preformatted_on)
use layout
@@ -125,7 +125,7 @@ contains
allocate(first_line)
- first_line%text = read_line_text(unit_number, iostatus)
+ call read_line_text(unit_number, first_line%text, iostatus)
first_line%next => null()
walker=>first_line
@@ -141,7 +141,7 @@ contains
next_line => null()
walker => walker%next
- walker%text = read_line_text(unit_number, iostatus)
+ call read_line_text(unit_number, walker%text, iostatus)
end do