diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 16:48:07 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-04 16:48:07 (GMT) |
commit | f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5 (patch) | |
tree | 8772b27441a53c0c19a819da1226a3e65638cba7 /fortran/test/tH5O.f90 | |
parent | 31b3c349083232358eb5b0ae4c0ee7c1f1dae4af (diff) | |
download | hdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.zip hdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.tar.gz hdf5-f6069ad57e7ddf4b97e4c40e16d1b09464cf62a5.tar.bz2 |
[svn-r14928] Maintenance: Cleaned up the code to make it compile on smirom with the g95 compiler
Platforms tested: kagiso with PGI compilers, linew, smirom with GCC and g95 compilers;
some tests and function calls are commented out with !EP string; we will be
working on it.
Diffstat (limited to 'fortran/test/tH5O.f90')
-rw-r--r-- | fortran/test/tH5O.f90 | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/fortran/test/tH5O.f90 b/fortran/test/tH5O.f90 index 17271b5..53046f1 100644 --- a/fortran/test/tH5O.f90 +++ b/fortran/test/tH5O.f90 @@ -52,10 +52,13 @@ SUBROUTINE test_h5o_link(total_error) INTEGER(HID_T) :: type_id INTEGER(HID_T) :: fapl_id INTEGER(HID_T) :: lcpl_id + INTEGER(HID_T) :: mem_space_id, file_space_id, xfer_prp CHARACTER(LEN=8), PARAMETER :: TEST_FILENAME = 'TestFile' INTEGER, PARAMETER :: TEST6_DIM1 = 2, TEST6_DIM2 = 5 - INTEGER(HSIZE_T), DIMENSION(1:2), PARAMETER :: dims = (/TEST6_DIM1,TEST6_DIM2/) - INTEGER, DIMENSION(1:TEST6_DIM1,1:TEST6_DIM2) :: wdata, rdata +!EP INTEGER(HSIZE_T), DIMENSION(1:2), PARAMETER :: dims = (/TEST6_DIM1,TEST6_DIM2/) + INTEGER(HSIZE_T), DIMENSION(1:2) :: dims = (/TEST6_DIM1,TEST6_DIM2/) +!EP INTEGER, DIMENSION(1:TEST6_DIM1,1:TEST6_DIM2) :: wdata, rdata + INTEGER, DIMENSION(TEST6_DIM1,TEST6_DIM2) :: wdata, rdata INTEGER, PARAMETER :: TRUE = 1, FALSE = 0 @@ -124,13 +127,15 @@ SUBROUTINE test_h5o_link(total_error) ! /* Write the data to the dataset */ - CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, wdata, dims, error, & - mem_space_id=H5S_ALL_F, file_space_id=H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) +!EP CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, wdata, dims, error, & +!EP mem_space_id=H5S_ALL_F, file_space_id=H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) + CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, wdata, dims, error) CALL check("h5dwrite_f", error, total_error) ! /* Read the data back */ - CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error, & - mem_space_id=H5S_ALL_F, file_space_id=H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) +!EP CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error, & +!EP mem_space_id=H5S_ALL_F, file_space_id=H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) + CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error) CALL check("h5dread_f", error, total_error) ! /* Verify the data */ @@ -179,8 +184,9 @@ SUBROUTINE test_h5o_link(total_error) CALL check("test_lcpl.h5dopen_f", error, total_error) ! /* Read data from dataset */ - CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error, & - H5S_ALL_F, H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) +!EP CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error, & +!EP H5S_ALL_F, H5S_ALL_F, xfer_prp = H5P_DEFAULT_F) + CALL h5dread_f(dset_id, H5T_NATIVE_INTEGER, rdata, dims, error) CALL check("h5dread_f", error, total_error) ! /* Verify the data */ |