summaryrefslogtreecommitdiffstats
path: root/fortran/testpar
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2000-10-31 18:04:24 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2000-10-31 18:04:24 (GMT)
commitc5c4b42e79b13b13644c586259a5909e523b226e (patch)
tree867e4a0cc5417ecc33112ee56bc213f257d97037 /fortran/testpar
parent0a6cfff27d12c77923616b34f231b3c8df8d6397 (diff)
downloadhdf5-c5c4b42e79b13b13644c586259a5909e523b226e.zip
hdf5-c5c4b42e79b13b13644c586259a5909e523b226e.tar.gz
hdf5-c5c4b42e79b13b13644c586259a5909e523b226e.tar.bz2
[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)
Diffstat (limited to 'fortran/testpar')
-rw-r--r--fortran/testpar/ptesthdf5_fortran.f905
1 files 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