diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-01-26 15:48:49 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-01-26 15:48:49 (GMT) |
| commit | f7bac2b4b99fcb9a75db66875ce29356a4120b92 (patch) | |
| tree | e80b69f7d285bb62b9d31e2972014053335fb514 /fortran/test/tH5T.f90 | |
| parent | c41e250354fcffaf0459ed5f14fedfabc8f03b4f (diff) | |
| download | hdf5-f7bac2b4b99fcb9a75db66875ce29356a4120b92.zip hdf5-f7bac2b4b99fcb9a75db66875ce29356a4120b92.tar.gz hdf5-f7bac2b4b99fcb9a75db66875ce29356a4120b92.tar.bz2 | |
[svn-r4866]
Purpose:
Maintenance
Description:
Several compiler's warnings caused Hitachi SR8000
F90 and C compilers to fail.
Solution:
Fixed the code to eliminate warnings.
Platforms tested:
O2K (modi4) and Solaris 2.7 (arabica)
Diffstat (limited to 'fortran/test/tH5T.f90')
| -rw-r--r-- | fortran/test/tH5T.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index 1182429..0f9a39c 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -66,6 +66,7 @@ INTEGER :: len ! Lenght of the name of the compound datatype member LOGICAL :: flag INTEGER(HSIZE_T), DIMENSION(3) :: array_dims=(/2,3,4/) + INTEGER :: array_dims_range = 3 INTEGER :: elements = 24 ! number of elements in the array_dims array. INTEGER(SIZE_T) :: sizechar INTEGER, DIMENSION(7) :: data_dims @@ -243,7 +244,7 @@ CALL h5tinsert_f(dtarray_id, "char_field", offset, H5T_NATIVE_CHARACTER, error) CALL check("h5tinsert_f", error, total_error) offset = type_sizec - CALL h5tarray_create_f(H5T_NATIVE_REAL, size(array_dims), array_dims, arrayt_id, error) + CALL h5tarray_create_f(H5T_NATIVE_REAL, array_dims_range, array_dims, arrayt_id, error) CALL check("h5tarray_create_f", error, total_error) CALL h5tinsert_f(dtarray_id,"array_field", offset, arrayt_id, error) CALL check("h5tinsert_f", error, total_error) |