From 665e2d5b381db2e35aba3b21f8afe1f7eb2479ad Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 25 Nov 2023 15:03:46 +0100
Subject: [PATCH] test IO_read and IO_readlines

---
 src/test/test_IO.f90 | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/src/test/test_IO.f90 b/src/test/test_IO.f90
index cae7f76c4..a5a0ac545 100644
--- a/src/test/test_IO.f90
+++ b/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