diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 14:37:02 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-22 14:37:02 (GMT) |
| commit | cfeb1509c2f7055ee34daba23978b0932944818c (patch) | |
| tree | 3955725c5283aeb8048e3a48207566c8f808e577 /hl/fortran/test/tstlite.f90 | |
| parent | fd6ce02c921f91a3c76ffff11f9f3202f030824f (diff) | |
| download | hdf5-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/tstlite.f90')
| -rw-r--r-- | hl/fortran/test/tstlite.f90 | 5 |
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 |