summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5MISC_1_8.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-03-19 19:14:19 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-03-19 19:14:19 (GMT)
commitc26d21bb63aef6376736dbe57e285bd5cbc6dad9 (patch)
treed37d83f73182e2a36d2b32e61999f83d436da1bf /fortran/test/tH5MISC_1_8.f90
parentdb64e760565d89bafd26515d2579928a53a60f24 (diff)
downloadhdf5-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.f9010
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