From aa6707d3e3b6e449eb6b2299091cfaefe52ae849 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 6 May 2020 08:34:27 -0400 Subject: Fixed silly Fortran mistakes regarding functions returning allocated strings. Added an unused history system. Fixed URL handling. --- files.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'files.f90') 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 -- cgit v1.2.3