diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 21:51:27 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-09 21:51:27 (GMT) |
| commit | 625fc9db698903a472d499d14739a3267aa60ad3 (patch) | |
| tree | 15ba2fa80ad957875b39ea65fdfd16f50a5648c2 | |
| parent | 5097bd442939cabc9b85976c87de3649bc26417c (diff) | |
| download | hdf5-625fc9db698903a472d499d14739a3267aa60ad3.zip hdf5-625fc9db698903a472d499d14739a3267aa60ad3.tar.gz hdf5-625fc9db698903a472d499d14739a3267aa60ad3.tar.bz2 | |
[svn-r27176] Removed debugging statements.
| -rw-r--r-- | fortran/test/tH5T.f90 | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/fortran/test/tH5T.f90 b/fortran/test/tH5T.f90 index d845f73..9aaaa73 100644 --- a/fortran/test/tH5T.f90 +++ b/fortran/test/tH5T.f90 @@ -213,10 +213,8 @@ CONTAINS CALL check("h5tget_size_f", error, total_error) CALL h5tget_size_f(H5T_NATIVE_INTEGER, type_sizei, error) CALL check("h5tget_size_f", error, total_error) - PRINT*,H5T_NATIVE_DOUBLE CALL h5tget_size_f(H5T_NATIVE_DOUBLE, type_sized, error) CALL check("h5tget_size_f", error, total_error) - stop CALL h5tget_size_f(H5T_NATIVE_REAL, type_sizer, error) CALL check("h5tget_size_f", error, total_error) !write(*,*) "get sizes", type_sizec, type_sizei, type_sizer, type_sized |