From f4fde1bbf62bad213c6c61bf80815cf0ec83561a Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Sat, 4 Nov 2023 07:40:47 -0600 Subject: [PATCH] further test development --- model/tests/test_io.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/model/tests/test_io.F90 b/model/tests/test_io.F90 index 4acbbb425..ba4f33fef 100644 --- a/model/tests/test_io.F90 +++ b/model/tests/test_io.F90 @@ -63,8 +63,10 @@ program test_io ! Make sure we got the values we expected. if (nopts .ne. 11) stop 11 + do i = 1, nopts + print *, ptnme(i), ptloc(1, i), ptloc(2, i) + end do - print *, 'SUCCESS!' end program test_io