test IO_read and IO_readlines

src/test/test_IO.f90

@@ -1,4 +1,5 @@
 module test_IO
+  use prec
   use IO
 
   implicit none(type,external)
@@ -10,8 +11,29 @@ module test_IO
 
 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 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 module test_IO