From 473994dd0088a38abb4174c286d41462b34f72a5 Mon Sep 17 00:00:00 2001
From: "M. Scot Breitenfeld" <brtnfld@hdfgroup.org>
Date: Thu, 21 Dec 2023 12:23:37 -0700
Subject: [PATCH] added H5PAR success statement

---
 HDF5Examples/FORTRAN/H5G/CMakeLists.txt                     | 2 --
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90              | 1 +
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90          | 2 +-
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_chunk.F90   | 2 +-
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90     | 2 +-
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 | 2 +-
 HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_row.F90     | 3 ++-
 7 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/HDF5Examples/FORTRAN/H5G/CMakeLists.txt b/HDF5Examples/FORTRAN/H5G/CMakeLists.txt
index 81506d9aa2c..074dacc5ccf 100644
--- a/HDF5Examples/FORTRAN/H5G/CMakeLists.txt
+++ b/HDF5Examples/FORTRAN/H5G/CMakeLists.txt
@@ -172,7 +172,6 @@ endif ()
 #endif ()
 
 if (H5EX_BUILD_TESTING)
-#  if (HDF_ENABLE_F2003)
     set (exfiles
         h5ex_g_iterate
         h5ex_g_traverse
@@ -186,7 +185,6 @@ if (H5EX_BUILD_TESTING)
           ARGS       -E copy_if_different ${PROJECT_SOURCE_DIR}/${example}.h5 ${PROJECT_BINARY_DIR}/${example}.h5
       )
     endforeach ()
-#  endif ()
 
   macro (ADD_DUMP_TEST testname)
     add_test (
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90
index ce126a34558..9819ab3c739 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_dataset.F90
@@ -101,6 +101,7 @@ PROGRAM DATASET
      ! Close FORTRAN interface
      !
      CALL h5close_f(error)
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
 
      CALL MPI_FINALIZE(mpierror)
 
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90
index f330d4eb220..7944b5ab39b 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_file_create.F90
@@ -53,7 +53,7 @@ PROGRAM FILE_CREATE
      ! Close FORTRAN interface
      !
      CALL h5close_f(error)
-
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
      CALL MPI_FINALIZE(mpierror)
 
      END PROGRAM FILE_CREATE
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_chunk.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_chunk.F90
index c4e6cce6c8f..c74e55dbdcf 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_chunk.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_chunk.F90
@@ -162,7 +162,7 @@ PROGRAM DATASET_BY_CHUNK
      ! Close FORTRAN interfaces and HDF5 library.
      !
      CALL h5close_f(error)
-
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
 100  continue
      CALL MPI_FINALIZE(mpierror)
 
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90
index b7b46e824bb..dc92667c053 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_col.F90
@@ -127,7 +127,7 @@ PROGRAM DATASET_BY_COL
      ! Close FORTRAN predefined datatypes.
      !
      CALL h5close_f(error)
-
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
      CALL MPI_FINALIZE(mpierror)
 
      END PROGRAM DATASET_BY_COL
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90
index 0f2077f10e9..dd02c634e78 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_pattern.F90
@@ -158,7 +158,7 @@ PROGRAM DATASET_BY_PATTERN
      ! Close FORTRAN interfaces and HDF5 library.
      !
      CALL h5close_f(error)
-
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
 100  continue
      CALL MPI_FINALIZE(mpierror)
 
diff --git a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_row.F90 b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_row.F90
index 398be23a103..f66da2a2f0a 100644
--- a/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_row.F90
+++ b/HDF5Examples/FORTRAN/H5PAR/ph5_f90_hyperslab_by_row.F90
@@ -147,8 +147,9 @@ PROGRAM DATASET_BY_ROW
      ! Close FORTRAN interfaces and HDF5 library.
      !
      CALL h5close_f(error)
-
+     IF(mpi_rank.EQ.0) WRITE(*,'(A)') "PHDF5 example finished with no errors"
 100  continue
+
      CALL MPI_FINALIZE(mpierror)
 
      END PROGRAM DATASET_BY_ROW