summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLarry Knox <lrknox@hdfgroup.org>2024-01-31 21:49:25 (GMT)
committerLarry Knox <lrknox@hdfgroup.org>2024-02-14 21:37:25 (GMT)
commitc71196cadf6f191a095347c1c8dcce0e2a5135df (patch)
tree17316920defe4a8c7b331b9112e5651498d78f68
parentec17e5662513945e7f040c5bc406672e3bbd10b8 (diff)
downloadhdf5-c71196cadf6f191a095347c1c8dcce0e2a5135df.zip
hdf5-c71196cadf6f191a095347c1c8dcce0e2a5135df.tar.gz
hdf5-c71196cadf6f191a095347c1c8dcce0e2a5135df.tar.bz2
Replace 'T2' with ' ' to avoid failure to match expected output due to (#3975)
system tab difference.
-rw-r--r--HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F908
-rw-r--r--HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F908
-rw-r--r--HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F9010
-rw-r--r--HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F9012
-rw-r--r--HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F9012
5 files changed, 25 insertions, 25 deletions
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F90
index b0464a3..863a904 100644
--- a/HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F90
+++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F90
@@ -122,13 +122,13 @@ PROGRAM main
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, MaxChrLen, name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_DEFLATE_F")')
+ WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SHUFFLE_F")')
+ WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_FLETCHER32_F")')
+ WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SZIP_F")')
+ WRITE(*,'(" H5Z_FILTER_SZIP_F")')
ENDIF
!
! Read the data using the default properties.
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F90
index b46e3fc..722ce79 100644
--- a/HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F90
+++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F90
@@ -120,13 +120,13 @@ PROGRAM main
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, MaxChrLen, name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_DEFLATE_F")')
+ WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SHUFFLE_F")')
+ WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_FLETCHER32_F")')
+ WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SZIP_F")')
+ WRITE(*,'(" H5Z_FILTER_SZIP_F")')
ENDIF
!
! Read the data using the default properties.
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F90
index 27e4d52..2c5d7ba 100644
--- a/HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F90
+++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F90
@@ -127,15 +127,15 @@ PROGRAM main
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen, SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_DEFLATE_F")')
+ WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SHUFFLE_F")')
+ WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_FLETCHER32_F")')
+ WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SZIP_F")')
+ WRITE(*,'(" H5Z_FILTER_SZIP_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_NBIT_F")')
+ WRITE(*,'(" H5Z_FILTER_NBIT_F")')
ENDIF
!
! Read the data using the default properties.
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F90
index 120e896..b04e163 100644
--- a/HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F90
+++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F90
@@ -135,17 +135,17 @@ PROGRAM main
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen, SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_DEFLATE_F")')
+ WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SHUFFLE_F")')
+ WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_FLETCHER32_F")')
+ WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SZIP_F")')
+ WRITE(*,'(" H5Z_FILTER_SZIP_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_NBIT_F")')
+ WRITE(*,'(" H5Z_FILTER_NBIT_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SCALEOFFSET_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SCALEOFFSET_F")')
+ WRITE(*,'(" H5Z_FILTER_SCALEOFFSET_F")')
ENDIF
!
! Read the data using the default properties.
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90
index f66036e..86e1b3d 100644
--- a/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90
+++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90
@@ -121,18 +121,18 @@ PROGRAM main
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen,SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_DEFLATE_F")')
+ WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SHUFFLE_F")')
+ WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_FLETCHER32_F")')
+ WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
- WRITE(*,'(T2,"H5Z_FILTER_SZIP_F")')
+ WRITE(*,'(" H5Z_FILTER_SZIP_F")')
! DEFINED ONLY IN F2003 hdf5 branch
! ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
-! WRITE(*,'(T2,"H5Z_FILTER_NBIT_F")')
+! WRITE(*,'(" H5Z_FILTER_NBIT_F")')
! ELSE IF(filter_id.EQ.H5Z_FILTER_SCALEOFFSET_F)THEN
-! WRITE(*,'(T2,"H5Z_FILTER_SCALEOFFSET_F")')
+! WRITE(*,'(" H5Z_FILTER_SCALEOFFSET_F")')
ENDIF
!
! Read the data using the default properties.