test: print cast details

Author: scivision

test/test_cast.f90

@@ -1,9 +1,8 @@
 program test_cast
 !! test HDF5 built-in casting
 
-use h5fortran, only : hdf5_file, &
- H5T_INTEGER_F, H5T_FLOAT_F, H5T_STRING_F, &
- H5T_NATIVE_REAL, H5T_NATIVE_DOUBLE, H5T_NATIVE_INTEGER, H5T_NATIVE_CHARACTER, H5T_STD_I64LE
+use h5fortran, only : hdf5_file
+use hdf5
 use, intrinsic :: iso_fortran_env, only : real32, real64, int32, int64, stderr=>error_unit
 
 implicit none
@@ -38,7 +37,8 @@ subroutine test_cast_write(fn)
 call h%write('/1d_real32', [1._real32, 32._real32])
 call h%write('/1d_int32', [2_int32, 4_int32])
 call h%write('/char', "hello")
-call h%write('/cast/r64tor32', real(darr))
+call h%write('/cast/r64tor32', real(darr, real32))
+call h%write('/cast/i64toi32', int(42_int64, int32))
 
 call h%close()
 
@@ -59,12 +59,27 @@ subroutine test_cast_read(fn)
 call h%open(fn, action='r')
 
 !> %class method
+print '(a)', 'HDF5 H5T class and dtype values:'
+print '(a, i0)', 'H5T_INTEGER_F = ', H5T_INTEGER_F
+print '(a, i0)', 'H5T_FLOAT_F = ', H5T_FLOAT_F
+print '(a, i0)', 'H5T_STRING_F = ', H5T_STRING_F
+print '(a, i0)', 'H5T_NATIVE_REAL = ', H5T_NATIVE_REAL
+print '(a, i0)', 'H5T_NATIVE_DOUBLE = ', H5T_NATIVE_DOUBLE
+print '(a, i0)', 'H5T_NATIVE_INTEGER = ', H5T_NATIVE_INTEGER
+print '(a, i0)', 'H5T_NATIVE_CHARACTER = ', H5T_NATIVE_CHARACTER
+print '(a, i0)', 'H5T_STD_I64LE = ', H5T_STD_I64LE
+
+
 if (h%class("/scalar_int32") /= H5T_INTEGER_F) error stop "int32 not integer"
 if (h%class("/scalar_int64") /= H5T_INTEGER_F) error stop "int64 not integer"
 if (h%class("/1d_real32") /= H5T_FLOAT_F) error stop "1d_real32 not float"
 if (h%class("/scalar_real32") /= H5T_FLOAT_F) error stop "real32 not float"
 if (h%class("/scalar_real64") /= H5T_FLOAT_F) error stop "real64 not float"
 if (h%class("/char") /= H5T_STRING_F) error stop "char not string"
+if (h%class("/cast/i64toi32") /= H5T_INTEGER_F) then
+  write(stderr,*) "expected cast i64toi32 ", H5T_INTEGER_F, " but got ", h%class('/cast/i64toi32')
+  error stop "cast not integer"
+endif
 if (h%class('/cast/r64tor32') /= H5T_FLOAT_F) then
   write(stderr,*) "expected cast r64tor32 ", H5T_FLOAT_F, " but got ", h%class('/cast/r64tor32')
   error stop "cast not float"
@@ -78,6 +93,7 @@ subroutine test_cast_read(fn)
 if (h%dtype("/scalar_real32") /= H5T_NATIVE_REAL) error stop "real32 type"
 if (h%dtype("/scalar_real64") /= H5T_NATIVE_DOUBLE) error stop "real64 type"
 if (h%dtype("/char") /= H5T_NATIVE_CHARACTER) error stop "char type"
+if (h%dtype('/cast/i64toi32') /= H5T_NATIVE_INTEGER) error stop "cast type"
 if (h%dtype('/cast/r64tor32') /= H5T_NATIVE_REAL) error stop "cast type"
 print *, "OK: dtype method"