diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-05 22:17:13 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-06-05 22:17:13 (GMT) |
| commit | 8641814c4e5b4211e0980df783c3d2d25f484226 (patch) | |
| tree | 14301cf1ffc17ffdc945aea72752ce41703c77a2 /hl/fortran/test | |
| parent | 043173a689015960758c0276486eca9e7a223366 (diff) | |
| download | hdf5-8641814c4e5b4211e0980df783c3d2d25f484226.zip hdf5-8641814c4e5b4211e0980df783c3d2d25f484226.tar.gz hdf5-8641814c4e5b4211e0980df783c3d2d25f484226.tar.bz2 | |
[svn-r27154] fixed issue with mis-matching long double between Fortran and C
Diffstat (limited to 'hl/fortran/test')
| -rw-r--r-- | hl/fortran/test/Makefile.in | 1 | ||||
| -rw-r--r-- | hl/fortran/test/tstlite.f90 | 4 |
2 files changed, 1 insertions, 4 deletions
diff --git a/hl/fortran/test/Makefile.in b/hl/fortran/test/Makefile.in index 7d41c72..be12387 100644 --- a/hl/fortran/test/Makefile.in +++ b/hl/fortran/test/Makefile.in @@ -466,6 +466,7 @@ FCFLAGS_f90 = @FCFLAGS_f90@ FCLIBS = @FCLIBS@ FC_VERSION = @FC_VERSION@ FGREP = @FGREP@ +FORTRAN_HAVE_C_LONG_DOUBLE = @FORTRAN_HAVE_C_LONG_DOUBLE@ FSEARCH_DIRS = @FSEARCH_DIRS@ GREP = @GREP@ H5_CFLAGS = @H5_CFLAGS@ diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90 index 8fe9612..da44eb7 100644 --- a/hl/fortran/test/tstlite.f90 +++ b/hl/fortran/test/tstlite.f90 @@ -142,15 +142,11 @@ END DO ! write dataset. ! f_ptr = C_LOC(buf3(1)) -!PRINT*,h5kind_to_type(INT(KIND(buf3(1))), INT(H5_REAL_KIND)), H5T_NATIVE_REAL_8,H5T_NATIVE_REAL,H5T_NATIVE_REAL_16 -PRINT*, KIND(buf3(1)), Fortran_REAL_16 mytype = h5kind_to_type(KIND(buf3(1)), H5_REAL_KIND) -PRINT*,sizeof(buf3(1)) CALL h5ltmake_dataset_f(file_id, dsetname3, rank, dims, & mytype, f_ptr, errcode) !CALL h5ltmake_dataset_f(file_id, dsetname3, rank, dims, H5T_NATIVE_DOUBLE, buf3, errcode) ! h5kind_to_type(KIND(buf3(1)), H5_REAL_KIND) -stop ! ! read dataset. ! |