summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-10-29 19:16:20 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-10-29 19:16:20 (GMT)
commitc65c53afcbc09f3fe074052f63833b4332f02968 (patch)
tree25b742ba7a880cc9fb9f09d1b81bb3815f0f8d65 /fortran
parent3e8b387af23a8a6e20f83128a742def3b1f08e88 (diff)
downloadhdf5-c65c53afcbc09f3fe074052f63833b4332f02968.zip
hdf5-c65c53afcbc09f3fe074052f63833b4332f02968.tar.gz
hdf5-c65c53afcbc09f3fe074052f63833b4332f02968.tar.bz2
[svn-r21690] Albert noted on AIX:
> make failed: > "../../../hdf5/fortran/test/fortranlib_test_1_8.f90", line 642.15: > 1513-041 (S) Arguments of the wrong type were specified for the > INTRINSIC procedure "mod". Fixed by defining both arguments in MOD as integer size_t Tested: jam (gfortran, intel)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/fortranlib_test_1_8.f904
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90
index dbada6b..321cb99 100644
--- a/fortran/test/fortranlib_test_1_8.f90
+++ b/fortran/test/fortranlib_test_1_8.f90
@@ -614,7 +614,7 @@ SUBROUTINE test_scaleoffset(cleanup, total_error )
CALL CHECK(" H5Pset_scaleoffset_f", error, total_error)
! Create the dataset
- CALL H5Dcreate_f(file, "scaleoffset_int", datatype, &
+ CALL H5Dcreate_f(file, "scaleoffset_int", datatype, &
space, dataset, error, dc)
CALL CHECK(" H5Dcreate_f", error, total_error)
@@ -639,7 +639,7 @@ SUBROUTINE test_scaleoffset(cleanup, total_error )
DO j = 1, dims(2)
CALL RANDOM_NUMBER(x)
orig_data(1,j) = INT(x*10000.)
- IF(MOD(j,2).EQ.0)THEN
+ IF(MOD(j,2_size_t).EQ.0)THEN
orig_data(1,j) = - orig_data(1,j)
ENDIF
ENDDO