diff options
author | Vailin Choi <vchoi@hdfgroup.org> | 2013-10-18 20:03:47 (GMT) |
---|---|---|
committer | Vailin Choi <vchoi@hdfgroup.org> | 2013-10-18 20:03:47 (GMT) |
commit | 9729a518b49a2217307c3c7ce9b33b064fc83147 (patch) | |
tree | 28b22bf7d1972b4a537bcec377778147c976420c /fortran/test/fortranlib_test_1_8.f90 | |
parent | 1bc858b1b889ae2d0eeca463646592d195db8c94 (diff) | |
download | hdf5-9729a518b49a2217307c3c7ce9b33b064fc83147.zip hdf5-9729a518b49a2217307c3c7ce9b33b064fc83147.tar.gz hdf5-9729a518b49a2217307c3c7ce9b33b064fc83147.tar.bz2 |
[svn-r24332] Bring revision #24330 from revise_chunks. h5committested.
Diffstat (limited to 'fortran/test/fortranlib_test_1_8.f90')
-rw-r--r-- | fortran/test/fortranlib_test_1_8.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test_1_8.f90 b/fortran/test/fortranlib_test_1_8.f90 index d3ced72..dc45560 100644 --- a/fortran/test/fortranlib_test_1_8.f90 +++ b/fortran/test/fortranlib_test_1_8.f90 @@ -196,6 +196,16 @@ SUBROUTINE test_genprop_basic_class(cleanup, total_error) INTEGER :: size LOGICAL :: flag + !/* Output message about test being performed */ + + !WRITE(*,*) "Testing Basic Generic Property List Class Creation Functionality" + + ! Try some bogus value for class identifier; function should fail gracefully + + cid1 = 456 + CALL H5Pget_class_name_f(cid1, name, size, error) + CALL VERIFY("H5Pget_class_name", error, -1, error) + ! /* Create a new generic class, derived from the root of the class hierarchy */ CALL H5Pcreate_class_f(H5P_ROOT_F, CLASS1_NAME, cid1, error) CALL check("H5Pcreate_class", error, total_error) |