diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-01 19:49:54 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-01 19:49:54 (GMT) |
| commit | 2069dbf25e1d0c31e258a0568971fcc4fb1922b0 (patch) | |
| tree | bf8cac99b8edacb1f3d62743f3373d42b772ed4b /fortran/src/H5_ff.F90 | |
| parent | 52e5579fbae41ee79f91eaeb66d452e8b1cc9e09 (diff) | |
| download | hdf5-2069dbf25e1d0c31e258a0568971fcc4fb1922b0.zip hdf5-2069dbf25e1d0c31e258a0568971fcc4fb1922b0.tar.gz hdf5-2069dbf25e1d0c31e258a0568971fcc4fb1922b0.tar.bz2 | |
[svn-r27134] Switched to uses a verify for each kind for the tests. Testing quad precision.
Diffstat (limited to 'fortran/src/H5_ff.F90')
| -rw-r--r-- | fortran/src/H5_ff.F90 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index d7d9efe..25c7eab 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -377,6 +377,9 @@ CONTAINS h5_type = H5T_NATIVE_INTEGER_4 ELSE IF(kind.EQ.Fortran_INTEGER_8)THEN h5_type = H5T_NATIVE_INTEGER_8 +! NEED ifdef -MSB- + ELSE IF(kind.EQ.Fortran_INTEGER_16)THEN + h5_type = H5T_NATIVE_INTEGER_16 ENDIF ELSE IF(flag.EQ.H5_REAL_KIND)THEN IF(kind.EQ.Fortran_REAL_C_FLOAT)THEN @@ -385,6 +388,9 @@ CONTAINS h5_type = H5T_NATIVE_REAL_C_DOUBLE ELSE IF(kind.EQ.Fortran_REAL_C_LONG_DOUBLE)THEN h5_type = H5T_NATIVE_REAL_C_LONG_DOUBLE +! NEED ifdef -MSB- + ELSE IF(kind.EQ.Fortran_REAL_C_FLOAT128)THEN + h5_type = H5T_NATIVE_FLOAT_128 ENDIF ENDIF |