adding tests

brtnfld · Jan 24, 2024 · 8611a73 · 8611a73
1 parent 168642f
commit 8611a73
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/fortran/testpar/ptest.F90 b/fortran/testpar/ptest.F90
@@ -58,6 +58,16 @@ PROGRAM parallel_test
 
   IF(mpi_rank==0) CALL write_test_header("COMPREHENSIVE PARALLEL FORTRAN TESTS")
 
+  ret_total_error = 0
+  CALL mpi_param_03(ret_total_error)
+  IF(mpi_rank==0) CALL write_test_status(ret_total_error, &
+       'Testing MPI communicator and info (F03)', total_error)
+
+  ret_total_error = 0
+  CALL mpi_param_08(ret_total_error)
+  IF(mpi_rank==0) CALL write_test_status(ret_total_error, &
+       'Testing MPI communicator and info (F08)', total_error)
+
   !
   ! test write/read dataset by hyperslabs (contiguous/chunk) with independent/collective MPI I/O
   !