diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-29 19:16:20 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-29 19:16:20 (GMT) |
| commit | c65c53afcbc09f3fe074052f63833b4332f02968 (patch) | |
| tree | 25b742ba7a880cc9fb9f09d1b81bb3815f0f8d65 | |
| parent | 3e8b387af23a8a6e20f83128a742def3b1f08e88 (diff) | |
| download | hdf5-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)
| -rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 4 |
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 |