diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-08 22:09:50 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-08 22:09:50 (GMT) |
| commit | b0afa2ab6157cf9519ce3fffccd40770157de214 (patch) | |
| tree | af1431881fab22af8ddbf0d9ba124476a3e6f185 /hl/fortran/test | |
| parent | 5ed3e8a4a773d59b9d8c731551bf7ede05de0fd2 (diff) | |
| download | hdf5-b0afa2ab6157cf9519ce3fffccd40770157de214.zip hdf5-b0afa2ab6157cf9519ce3fffccd40770157de214.tar.gz hdf5-b0afa2ab6157cf9519ce3fffccd40770157de214.tar.bz2 | |
[svn-r27355] added generation of HL Fortran Interfaces for REALs
Diffstat (limited to 'hl/fortran/test')
| -rw-r--r-- | hl/fortran/test/tstlite.F90 | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/hl/fortran/test/tstlite.F90 b/hl/fortran/test/tstlite.F90 index 4c1ca14..0eb005b 100644 --- a/hl/fortran/test/tstlite.F90 +++ b/hl/fortran/test/tstlite.F90 @@ -1539,20 +1539,23 @@ SUBROUTINE test_attributes() ! double !------------------------------------------------------------------------- - CALL test_begin(' Set/Get attributes double ') - #ifdef H5_FORTRAN_HAVE_STORAGE_SIZE SizeOf_buf_type = STORAGE_SIZE(buf4(1), c_size_t)/STORAGE_SIZE(c_char_'a',c_size_t) #else SizeOf_buf_type = SIZEOF(buf4(1)) #endif + + IF(SizeOf_buf_type.LT.16)THEN ! MSB can't handle 16 byte reals + + CALL test_begin(' Set/Get attributes double ') + ! ! write attribute. ! f_ptr = C_LOC(buf4(1)) CALL h5ltset_attribute_f(file_id,dsetname1,attrname4,f_ptr,"real", SizeOf_buf_type, size, errcode) - !CALL h5ltset_attribute_double_f(file_id,dsetname1,attrname4,f_ptr,"Real", SizeOf_buf_type, size, errcode) +! CALL h5ltset_attribute_double_f(file_id,dsetname1,attrname4,buf4, size, errcode) ! ! read attribute. @@ -1567,8 +1570,6 @@ SUBROUTINE test_attributes() f_ptr = C_LOC(bufr4(1)) CALL h5ltget_attribute_f(file_id,dsetname1,attrname4,f_ptr,"REAL",SizeOf_buf_type,errcode) -! CALL h5ltget_attribute_double_f(file_id,dsetname1,attrname4,bufr4,errcode) - ! ! compare read and write buffers. ! @@ -1582,6 +1583,8 @@ SUBROUTINE test_attributes() CALL passed() + ENDIF + !------------------------------------------------------------------------- ! string !------------------------------------------------------------------------- |