diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-05 04:51:08 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-05 04:51:08 (GMT) |
| commit | 817bfb6499f266113fa8146b980e065a133b1374 (patch) | |
| tree | 8d0b797e7f17ad3b6b6904d2846e5e97f301b585 /fortran/test | |
| parent | 440044ebaf3bff7800a48fc538c8b1281d54f507 (diff) | |
| download | hdf5-817bfb6499f266113fa8146b980e065a133b1374.zip hdf5-817bfb6499f266113fa8146b980e065a133b1374.tar.gz hdf5-817bfb6499f266113fa8146b980e065a133b1374.tar.bz2 | |
[svn-r21475] Description: fixed C_LOC(X) non-standard argument X for multi-dimensional arrays detected using xlf compiler.
Tested: jam (intel, gnu, pgi) F2003 compilers.
Diffstat (limited to 'fortran/test')
| -rw-r--r-- | fortran/test/tH5A_1_8.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5A_1_8.f90 b/fortran/test/tH5A_1_8.f90 index c1dca9d..32cb228 100644 --- a/fortran/test/tH5A_1_8.f90 +++ b/fortran/test/tH5A_1_8.f90 @@ -465,6 +465,7 @@ SUBROUTINE test_attr_null_space(fcpl, fapl, total_error) ! /* Try to read data from the attribute */ ! /* (shouldn't fail, but should leave buffer alone) */ value(1) = 103 + data_dims(1) = 1 CALL h5aread_f(attr, H5T_NATIVE_INTEGER, value, data_dims, error) CALL check("h5aread_f",error,total_error) CALL verify("h5aread_f",value(1),103,total_error) @@ -2170,7 +2171,6 @@ SUBROUTINE test_attr_dense_open( fcpl, fapl, total_error) CALL h5aclose_f(attr, error) CALL check("h5aclose_f",error,total_error) - ! /* Close dataspace */ CALL h5sclose_f(sid, error) CALL check("h5sclose_f",error,total_error) |