From c65c53afcbc09f3fe074052f63833b4332f02968 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Sat, 29 Oct 2011 14:16:20 -0500 Subject: [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) --- fortran/test/fortranlib_test_1_8.f90 | 4 ++-- 1 file 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 -- cgit v0.12