From c5c4b42e79b13b13644c586259a5909e523b226e Mon Sep 17 00:00:00 2001
From: Elena Pourmal <epourmal@hdfgroup.org>
Date: Tue, 31 Oct 2000 13:04:24 -0500
Subject: [svn-r2775] Purpose:     Bug fix. Description:     When the number of
 processors is wrong (should be a factor     of dataset dimensions for this
 test) , test hangs because     of wrong logic in the if-then-endif statement.
 Solution:     Fixed the logic. Platforms tested:     modi4 (O2K)

---
 fortran/testpar/ptesthdf5_fortran.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fortran/testpar/ptesthdf5_fortran.f90 b/fortran/testpar/ptesthdf5_fortran.f90
index fb575ff..9c833ba 100644
--- a/fortran/testpar/ptesthdf5_fortran.f90
+++ b/fortran/testpar/ptesthdf5_fortran.f90
@@ -26,10 +26,11 @@
      !
      if ( (mod(DIM1, mpi_size) .ne. 0) .or. (mod(DIM2, mpi_size) .ne. 0)) then
          if (mpi_rank .eq. 0) then
-             write(*,*) "Dimensions must be mupltiples of # of processors"
+             write(*,*) "Number of processors is", mpi_size
+             write(*,*)  "It must be a factor of ", DIM1, " and ", DIM2
              write(*,*) "Exiting..."
-         goto 1000
          endif
+         goto 1000
      endif
      !
      ! Initialize FORTRAN predefined datatypes
-- 
cgit v0.12