summaryrefslogtreecommitdiffstats
path: root/fortran/test/tH5I.F90
diff options
context:
space:
mode:
authorDana Robinson <derobins@hdfgroup.org>2020-05-26 21:01:09 (GMT)
committerDana Robinson <derobins@hdfgroup.org>2020-05-26 21:01:09 (GMT)
commit03ab219996e562502e90c508e669141b0e601e54 (patch)
tree74503936be8d005473c238c404394123d56ed8c8 /fortran/test/tH5I.F90
parent32f8fed120df107b46ba73f60429f14f71b30012 (diff)
downloadhdf5-03ab219996e562502e90c508e669141b0e601e54.zip
hdf5-03ab219996e562502e90c508e669141b0e601e54.tar.gz
hdf5-03ab219996e562502e90c508e669141b0e601e54.tar.bz2
Removed trailing space from Fortran files.
Diffstat (limited to 'fortran/test/tH5I.F90')
-rw-r--r--fortran/test/tH5I.F9020
1 files changed, 10 insertions, 10 deletions
diff --git a/fortran/test/tH5I.F90 b/fortran/test/tH5I.F90
index 5ce37fd..1934acf 100644
--- a/fortran/test/tH5I.F90
+++ b/fortran/test/tH5I.F90
@@ -25,8 +25,8 @@
!
!*****
MODULE TH5I
-
- USE HDF5 ! This module contains all necessary modules
+
+ USE HDF5 ! This module contains all necessary modules
USE TH5_MISC
USE TH5_MISC_GEN
@@ -87,21 +87,21 @@ CONTAINS
! check that the ID is not valid
dtype = -1
CALL H5Iis_valid_f(dtype, tri_ret, error)
- CALL check("H5Iis_valid_f", error, total_error)
+ CALL check("H5Iis_valid_f", error, total_error)
CALL verify("H5Iis_valid_f", tri_ret, .FALSE., total_error)
-
+
! Create a datatype id
CALL H5Tcopy_f(H5T_NATIVE_INTEGER,dtype,error)
- CALL check("H5Tcopy_f", error, total_error)
-
+ CALL check("H5Tcopy_f", error, total_error)
+
! Check that the ID is valid
CALL H5Iis_valid_f(dtype, tri_ret, error)
- CALL check("H5Iis_valid_f", error, total_error)
+ CALL check("H5Iis_valid_f", error, total_error)
CALL verify("H5Tequal_f", tri_ret, .TRUE., total_error)
-
+
CALL H5Tclose_f(dtype, error)
- CALL check("H5Tclose_f", error, total_error)
-
+ CALL check("H5Tclose_f", error, total_error)
+
!
! Create a new file using default properties.
!