Skip to content

Commit 11e9473

Browse files
perazzjalvesz
andauthored
Update src/stdlib_io.fypp
Co-authored-by: jalvesz <102541118+jalvesz@users.noreply.github.com>
1 parent 9eb8fad commit 11e9473

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/stdlib_io.fypp

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -554,9 +554,9 @@ contains
554554
!>
555555
!> Reads a whole ASCII file and loads its contents into a string variable.
556556
!> The function handles error states and optionally deletes the file after reading.
557-
subroutine getfile_string(fileName,file,err,delete)
557+
subroutine getfile_string(filename,file,err,delete)
558558
!> Input file name
559-
character(*), intent(in) :: fileName
559+
character(*), intent(in) :: filename
560560
!> Output string variable
561561
type(string_type), intent(out) :: file
562562
!> [optional] State return flag. On error, if not requested, the code will stop.
@@ -565,10 +565,10 @@ contains
565565
logical, optional, intent(in) :: delete
566566

567567
! Local variables
568-
character(len=:), allocatable :: fileString
568+
character(len=:), allocatable :: filestring
569569

570570
! Process output
571-
call getfile_char(fileName,fileString,err,delete)
571+
call getfile_char(filename,filestring,err,delete)
572572
call move(from=fileString,to=file)
573573

574574
end subroutine getfile_string

0 commit comments

Comments
 (0)