test:cast: check other arrays, print class

Author: scivision

test/test_cast.f90

@@ -4,7 +4,7 @@ program test_cast
 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, intrinsic :: iso_fortran_env, only : real32, real64, int32, int64
+use, intrinsic :: iso_fortran_env, only : real32, real64, int32, int64, stderr=>error_unit
 
 implicit none
 
@@ -61,10 +61,15 @@ subroutine test_cast_read(fn)
 !> %class method
 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/r64tor32') /= H5T_FLOAT_F) error stop "cast not float"
+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"
+endif
+
 print *, "OK: class method"
 
 !> %dtype method