module test_mod
use stdlib_string_type
implicit none
contains
subroutine write_file()
 integer :: fh
 open(newunit=fh,file="scratch.txt",status="unknown")
 write(fh,*) 'This is line one'
 write(fh,*) 'This is line two'
 write(fh,*) 'This is line three'
 close(fh)
end subroutine write_file
subroutine read_file()
 
 integer :: fh, ios
 type(string_type) :: line
 open(newunit=fh,file="scratch.txt",status="unknown")
 do
 read(fh,*,iostat=ios) line
 if (ios /= 0) exit
 write(*,*) line
 end do
 close(fh)
end subroutine read_file
end module test_mod
program test
 use test_mod
 implicit none
 call write_file()
 call read_file()
end program test