summaryrefslogtreecommitdiffstats
path: root/hl/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 20:12:13 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 20:12:13 (GMT)
commitf0c4d55f914d3d7ee27703fbeb54c99ffa1603eb (patch)
tree8ab3347ac0b507ebaac505a015b6f24198d2b08c /hl/fortran/test
parent05a320e9eb464e7b905fcfd4fc3bb4f4d83793ed (diff)
downloadhdf5-f0c4d55f914d3d7ee27703fbeb54c99ffa1603eb.zip
hdf5-f0c4d55f914d3d7ee27703fbeb54c99ffa1603eb.tar.gz
hdf5-f0c4d55f914d3d7ee27703fbeb54c99ffa1603eb.tar.bz2
[svn-r26908] Added missing c_long_double interfaces, now handles promotion of reals and integers to 8 bytes, added C wrappers that take pointers from Fortran.
Diffstat (limited to 'hl/fortran/test')
-rw-r--r--hl/fortran/test/tstlite.f904
-rw-r--r--hl/fortran/test/tsttable.f901
2 files changed, 2 insertions, 3 deletions
diff --git a/hl/fortran/test/tstlite.f90 b/hl/fortran/test/tstlite.f90
index 314bf09..60fc659 100644
--- a/hl/fortran/test/tstlite.f90
+++ b/hl/fortran/test/tstlite.f90
@@ -1361,8 +1361,8 @@ SUBROUTINE test_attributes()
INTEGER, DIMENSION(DIM1) :: bufr2 ! 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
+ REAL(C_DOUBLE), DIMENSION(DIM1) :: buf4 ! Data buffer
+ REAL(C_DOUBLE), DIMENSION(DIM1) :: bufr4 ! Data buffer
INTEGER :: errcode ! Error flag
INTEGER :: i, n ! general purpose integer
INTEGER(SIZE_T) size ! size of attribute array
diff --git a/hl/fortran/test/tsttable.f90 b/hl/fortran/test/tsttable.f90
index bb88abf..f679982 100644
--- a/hl/fortran/test/tsttable.f90
+++ b/hl/fortran/test/tsttable.f90
@@ -21,7 +21,6 @@ PROGRAM table_test
CALL test_table1()
-
END PROGRAM table_test