diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-08-25 17:04:56 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-08-25 17:04:56 (GMT) |
| commit | fd71d209dfcd392686b464313f38a469167c2aa3 (patch) | |
| tree | b9493d02388b4fde303fc8d32a2699296c85d1da /fortran/test/tH5T_F03.f90 | |
| parent | fcbb4fbd9d32e128c6c9e9879e08ef524a598482 (diff) | |
| download | hdf5-fd71d209dfcd392686b464313f38a469167c2aa3.zip hdf5-fd71d209dfcd392686b464313f38a469167c2aa3.tar.gz hdf5-fd71d209dfcd392686b464313f38a469167c2aa3.tar.bz2 | |
[svn-r21312] Description: fixed un-initialized errors for strings and changed the INTEGER type getting passed the verify* programs in the test programs. Fixes problems with Sun compilers 12.3 beta with the -m64 flag.
Tested: linew( 12.3 beta)
Diffstat (limited to 'fortran/test/tH5T_F03.f90')
| -rw-r--r-- | fortran/test/tH5T_F03.f90 | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90 index 57e833c..1d6d8de 100644 --- a/fortran/test/tH5T_F03.f90 +++ b/fortran/test/tH5T_F03.f90 @@ -202,7 +202,8 @@ SUBROUTINE test_array_compound_atomic(total_error) ! Check the 1st field's offset CALL H5Tget_member_offset_f(tid2, 0, off, error) CALL check("H5Tget_member_offset_f", error, total_error) - CALL VERIFY("H5Tget_member_offset_f",INT(off),0, total_error) + CALL VERIFY("H5Tget_member_offset_f",INT(off),0, total_error) + ! Check the 1st field's datatype CALL H5Tget_member_type_f(tid2, 0, mtid, error) @@ -223,7 +224,7 @@ SUBROUTINE test_array_compound_atomic(total_error) ! Check the 2nd field's offset CALL H5Tget_member_offset_f(tid2, 1, off, error) CALL check("H5Tget_member_offset_f", error, total_error) - CALL VERIFY("H5Tget_member_offset_f",INT(off),H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%f)), total_error) + CALL VERIFY("H5Tget_member_offset_f",INT(off),INT(H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%f))), total_error) ! Check the 2nd field's datatype CALL H5Tget_member_type_f(tid2, 1, mtid, error) @@ -516,7 +517,7 @@ END SUBROUTINE test_array_compound_atomic ! Check the 2nd field's offset CALL H5Tget_member_offset_f(tid2, 1, off, error) CALL check("H5Tget_member_offset_f", error, total_error) - CALL VERIFY("H5Tget_member_offset_f",INT(off),H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%f)), total_error) + CALL VERIFY("H5Tget_member_offset_f",INT(off),INT(H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%f))), total_error) ! Check the 2nd field's datatype CALL H5Tget_member_type_f(tid2, 1, mtid, error) @@ -550,7 +551,7 @@ END SUBROUTINE test_array_compound_atomic CALL H5Tget_member_offset_f(tid2, 2, off, error) CALL check("H5Tget_member_offset_f", error, total_error) CALL VERIFY("H5Tget_member_offset_f",INT(off),& - H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%c(1))), total_error) + INT(H5OFFSETOF(C_LOC(wdata(1,1)),C_LOC(wdata(1,1)%c(1)))), total_error) ! Check the 3rd field's datatype CALL H5Tget_member_type_f(tid2, 2, mtid2, error) @@ -1916,6 +1917,7 @@ SUBROUTINE t_objref(total_error) ! ! Get the length of the name and name ! + name(:) = ' ' ! initialize string to blanks CALL H5Iget_name_f(obj, name, 80_size_t, name_size, error) CALL check("H5Iget_name_f",error, total_error) ! @@ -2102,9 +2104,10 @@ SUBROUTINE t_regref(total_error) ! ! Get the object's name ! + name(:) = ' ' ! initialize string to blanks CALL H5Iget_name_f(dset2, name, 80_size_t, size, error) CALL check("H5Iget_name_f",error, total_error) - CALL VERIFY("H5Iget_name_f", size, LEN_TRIM(name), total_error) + CALL VERIFY("H5Iget_name_f", INT(size), LEN_TRIM(name), total_error) CALL verifystring("H5Iget_name_f",name(1:size),TRIM(name), total_error) ! ! Allocate space for the read buffer. @@ -2390,7 +2393,7 @@ SUBROUTINE t_vlstring(total_error) CALL check("H5Dget_space_f",error, total_error) CALL H5Sget_simple_extent_dims_f(space, dims, maxdims, error) CALL check("H5Sget_simple_extent_dims_f",error, total_error) - CALL VERIFY("H5Sget_simple_extent_dims_f", INT(dims(1)), dim0, total_error) + CALL VERIFY("H5Sget_simple_extent_dims_f", INT(dims(1)), INT(dim0), total_error) ALLOCATE(rdata(1:dims(1))) |