summaryrefslogtreecommitdiffstats
path: root/hl/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 14:37:02 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-22 14:37:02 (GMT)
commitcfeb1509c2f7055ee34daba23978b0932944818c (patch)
tree3955725c5283aeb8048e3a48207566c8f808e577 /hl/fortran/test
parentfd6ce02c921f91a3c76ffff11f9f3202f030824f (diff)
downloadhdf5-cfeb1509c2f7055ee34daba23978b0932944818c.zip
hdf5-cfeb1509c2f7055ee34daba23978b0932944818c.tar.gz
hdf5-cfeb1509c2f7055ee34daba23978b0932944818c.tar.bz2
[svn-r26881] Added BIND(C) to the Fortran HL APIs, and fixed the issue with -r8 (or equiv.) being specified.
Diffstat (limited to 'hl/fortran/test')
-rw-r--r--hl/fortran/test/tstlite.f905
1 files changed, 3 insertions, 2 deletions
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index d035b89..314bf09 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1335,6 +1335,7 @@ END SUBROUTINE test_datasets
SUBROUTINE test_attributes()
+ USE ISO_C_BINDING
USE H5LT ! module of H5LT
USE HDF5 ! module of HDF5 library
@@ -1358,8 +1359,8 @@ SUBROUTINE test_attributes()
! CHARACTER(LEN=18) :: bufr_c_lg ! Data buffer
INTEGER, DIMENSION(DIM1) :: buf2 ! Data buffer
INTEGER, DIMENSION(DIM1) :: bufr2 ! Data buffer
- REAL, DIMENSION(DIM1) :: buf3 ! Data buffer
- REAL, DIMENSION(DIM1) :: bufr3 ! Data buffer
+ REAL(C_FLOAT), DIMENSION(DIM1) :: buf3 ! Data buffer
+ REAL(C_FLOAT), DIMENSION(DIM1) :: bufr3 ! Data buffer
DOUBLE PRECISION, DIMENSION(DIM1) :: buf4 ! Data buffer
DOUBLE PRECISION, DIMENSION(DIM1) :: bufr4 ! Data buffer
INTEGER :: errcode ! Error flag