diff options
| author | Dana Robinson <derobins@hdfgroup.org> | 2020-05-26 21:01:09 (GMT) |
|---|---|---|
| committer | Dana Robinson <derobins@hdfgroup.org> | 2020-05-26 21:01:09 (GMT) |
| commit | 03ab219996e562502e90c508e669141b0e601e54 (patch) | |
| tree | 74503936be8d005473c238c404394123d56ed8c8 /fortran/test/vol_connector.F90 | |
| parent | 32f8fed120df107b46ba73f60429f14f71b30012 (diff) | |
| download | hdf5-03ab219996e562502e90c508e669141b0e601e54.zip hdf5-03ab219996e562502e90c508e669141b0e601e54.tar.gz hdf5-03ab219996e562502e90c508e669141b0e601e54.tar.bz2 | |
Removed trailing space from Fortran files.
Diffstat (limited to 'fortran/test/vol_connector.F90')
| -rw-r--r-- | fortran/test/vol_connector.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/vol_connector.F90 b/fortran/test/vol_connector.F90 index d346737..bc4974f 100644 --- a/fortran/test/vol_connector.F90 +++ b/fortran/test/vol_connector.F90 @@ -68,7 +68,7 @@ CONTAINS ! Register the connector by name CALL H5VLregister_connector_by_name_f(NATIVE_VOL_CONNECTOR_NAME, vol_id, error) CALL check("H5VLregister_connector_by_name_f",error,total_error) - + ! The connector should be registered now CALL H5VLis_connector_registered_by_name_f(NATIVE_VOL_CONNECTOR_NAME, is_registered, error) CALL check("H5VLis_connector_registered_by_name_f",error,total_error) @@ -174,7 +174,7 @@ CONTAINS CALL H5VLregister_connector_by_name_f(NATIVE_VOL_CONNECTOR_NAME, vol_id, error) CALL check("H5VLregister_connector_by_name_f",error,total_error) - + ! The connector should be registered now CALL H5VLis_connector_registered_by_name_f(NATIVE_VOL_CONNECTOR_NAME, is_registered, error) CALL check("H5VLis_connector_registered_by_name_f",error,total_error) @@ -195,7 +195,7 @@ CONTAINS f_ptr = C_NULL_PTR CALL H5Pset_vol_f(fapl_id, vol_id, error, f_ptr) CALL check("H5Pset_vol_f",error,total_error) - + CALL H5Pget_vol_id_f(fapl_id, vol_id_out, error) CALL check("H5Pget_vol_id_f",error,total_error) CALL VERIFY("H5Pget_vol_id_f", vol_id_out, vol_id, total_error) @@ -275,7 +275,7 @@ PROGRAM vol_connector WRITE(*, fmt = '(I4)', advance='NO') total_error WRITE(*, fmt = '(A)' ) ' error(s) ! ' WRITE(*,'(18X,A)') '============================================' - + CALL h5close_f(error) ! if errors detected, exit with non-zero code. |