diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-23 20:12:13 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-04-23 20:12:13 (GMT) |
| commit | f0c4d55f914d3d7ee27703fbeb54c99ffa1603eb (patch) | |
| tree | 8ab3347ac0b507ebaac505a015b6f24198d2b08c /hl/fortran/test | |
| parent | 05a320e9eb464e7b905fcfd4fc3bb4f4d83793ed (diff) | |
| download | hdf5-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.f90 | 4 | ||||
| -rw-r--r-- | hl/fortran/test/tsttable.f90 | 1 |
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 |