diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2024-02-02 05:42:58 (GMT) |
|---|---|---|
| committer | Larry Knox <lrknox@hdfgroup.org> | 2024-02-14 21:37:27 (GMT) |
| commit | a78e968718c255a42d4f997716aca3702dcb8cde (patch) | |
| tree | b4adc92db4026703a6d73c9a589651db95ab373d /HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 | |
| parent | bddae3196fd1aa2504207f1dca819ba2431eb005 (diff) | |
| download | hdf5-a78e968718c255a42d4f997716aca3702dcb8cde.zip hdf5-a78e968718c255a42d4f997716aca3702dcb8cde.tar.gz hdf5-a78e968718c255a42d4f997716aca3702dcb8cde.tar.bz2 | |
Fixed spacing issues in example tests. (#3979)
* The space difference in the Fortran examples must be fixed to match the expected output for compression filter examples.
Diffstat (limited to 'HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90')
| -rw-r--r-- | HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 b/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 index 86e1b3d..fdd6ecf 100644 --- a/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 +++ b/HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90 @@ -119,20 +119,22 @@ PROGRAM main nelmts = 1 CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen,SIZE_T), name, filter_id, hdferr) - WRITE(*,'("Filter type is: ")', ADVANCE='NO') + WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:" IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN - WRITE(*,'(" H5Z_FILTER_DEFLATE_F")') + WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F" ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN - WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")') + WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F" ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN - WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")') + WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F" ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN - WRITE(*,'(" H5Z_FILTER_SZIP_F")') + WRITE(*,'(A)') "H5Z_FILTER_SZIP_F" ! DEFINED ONLY IN F2003 hdf5 branch ! ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN ! WRITE(*,'(" H5Z_FILTER_NBIT_F")') ! ELSE IF(filter_id.EQ.H5Z_FILTER_SCALEOFFSET_F)THEN ! WRITE(*,'(" H5Z_FILTER_SCALEOFFSET_F")') + ELSE + WRITE(*,'(A)') "UNKNOWN" ENDIF ! ! Read the data using the default properties. |