diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-19 19:14:19 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-03-19 19:14:19 (GMT) |
| commit | c26d21bb63aef6376736dbe57e285bd5cbc6dad9 (patch) | |
| tree | d37d83f73182e2a36d2b32e61999f83d436da1bf /fortran/test/tH5MISC_1_8.f90 | |
| parent | db64e760565d89bafd26515d2579928a53a60f24 (diff) | |
| download | hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.zip hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.tar.gz hdf5-c26d21bb63aef6376736dbe57e285bd5cbc6dad9.tar.bz2 | |
[svn-r26481] Removed compiler warnings. HDF5-239
Tested: h5committest.
Diffstat (limited to 'fortran/test/tH5MISC_1_8.f90')
| -rw-r--r-- | fortran/test/tH5MISC_1_8.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fortran/test/tH5MISC_1_8.f90 b/fortran/test/tH5MISC_1_8.f90 index 9b33f8a..efaf594 100644 --- a/fortran/test/tH5MISC_1_8.f90 +++ b/fortran/test/tH5MISC_1_8.f90 @@ -80,7 +80,6 @@ SUBROUTINE dtransform(cleanup, total_error) IF(cleanup) CALL h5_cleanup_f("dtransform", H5P_DEFAULT_F, error) CALL check("h5_cleanup_f", error, total_error) - END SUBROUTINE dtransform @@ -91,13 +90,12 @@ END SUBROUTINE dtransform !** !*************************************************************** -SUBROUTINE test_genprop_basic_class(cleanup, total_error) +SUBROUTINE test_genprop_basic_class(total_error) USE HDF5 ! This module contains all necessary modules USE TH5_MISC IMPLICIT NONE - LOGICAL, INTENT(IN) :: cleanup INTEGER, INTENT(INOUT) :: total_error INTEGER(HID_T) :: cid1 ! Generic Property class ID @@ -181,7 +179,7 @@ SUBROUTINE test_genprop_basic_class(cleanup, total_error) END SUBROUTINE test_genprop_basic_class -SUBROUTINE test_h5s_encode(cleanup, total_error) +SUBROUTINE test_h5s_encode(total_error) !*************************************************************** !** @@ -192,7 +190,6 @@ SUBROUTINE test_h5s_encode(cleanup, total_error) USE HDF5 ! This module contains all necessary modules USE TH5_MISC IMPLICIT NONE - LOGICAL, INTENT(IN) :: cleanup INTEGER, INTENT(INOUT) :: total_error INTEGER(hid_t) :: sid1, sid3! Dataspace ID @@ -469,6 +466,9 @@ SUBROUTINE test_scaleoffset(cleanup, total_error ) CALL H5Fclose_f(file, error) CALL CHECK(" H5Fclose_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f("h5scaleoffset", H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + END SUBROUTINE test_scaleoffset END MODULE TH5MISC_1_8 |