diff options
Diffstat (limited to 'files.f90')
-rw-r--r-- | files.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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 |