summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5T.f90
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2002-01-26 15:48:49 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2002-01-26 15:48:49 (GMT)
commitf7bac2b4b99fcb9a75db66875ce29356a4120b92 (patch)
treee80b69f7d285bb62b9d31e2972014053335fb514 /fortran/test/tH5T.f90
parentc41e250354fcffaf0459ed5f14fedfabc8f03b4f (diff)
downloadhdf5-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.f903
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)