test IO_read and IO_readlines

This commit is contained in:
Martin Diehl 2023-11-25 15:03:46 +01:00
parent 0ec8317202
commit 665e2d5b38
1 changed files with 22 additions and 0 deletions

View File

@ -1,4 +1,5 @@
module test_IO module test_IO
use prec
use IO use IO
implicit none(type,external) implicit none(type,external)
@ -10,8 +11,29 @@ module test_IO
subroutine test_IO_run() subroutine test_IO_run()
real, dimension(30) :: rnd_real
character(len=size(rnd_real)) :: rnd_str
character(len=pSTRLEN), dimension(1) :: strarray_out
character(len=:), allocatable :: str_out
integer :: u,i
call IO_selfTest() call IO_selfTest()
call random_number(rnd_real)
do i = 1, size(rnd_real)
rnd_str(i:i) = char(32 + int(rnd_real(i)*(127.-32.)))
end do
open(newunit=u,file='results.out',status='replace',form='formatted')
write(u,'(a)') rnd_str
close(u)
str_out = IO_read('results.out')
if (rnd_str//IO_EOL /= str_out) error stop 'IO_read'
strarray_out = IO_readlines('results.out')
if (rnd_str /= strarray_out(1)) error stop 'IO_readlines'
end subroutine test_IO_run end subroutine test_IO_run
end module test_IO end module test_IO