summaryrefslogtreecommitdiffstats
path: root/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-01 16:25:32 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-01 16:25:32 (GMT)
commit2c575bb79a1e762653aa4393b141bf0c3b78cb01 (patch)
tree3c74d982f014db39ab90365de9d0bd1bbc14740a /fortran/test
parentd52e65a95f4ba380101bbf908755c0b02d16b0bb (diff)
downloadhdf5-2c575bb79a1e762653aa4393b141bf0c3b78cb01.zip
hdf5-2c575bb79a1e762653aa4393b141bf0c3b78cb01.tar.gz
hdf5-2c575bb79a1e762653aa4393b141bf0c3b78cb01.tar.bz2
[svn-r26989] Changed the BIND(C) derived types from:
CHARACTER(LEN=1) to CHARACTER(KIND=C_CHAR) to make Sun compilers happy.
Diffstat (limited to 'fortran/test')
-rw-r--r--fortran/test/tH5L_F03.f904
-rw-r--r--fortran/test/tH5O_F03.f904
-rw-r--r--fortran/test/tf.F902
3 files changed, 5 insertions, 5 deletions
diff --git a/fortran/test/tH5L_F03.f90 b/fortran/test/tH5L_F03.f90
index 795f1e2..0d3b6b4 100644
--- a/fortran/test/tH5L_F03.f90
+++ b/fortran/test/tH5L_F03.f90
@@ -45,7 +45,7 @@ MODULE liter_cb_mod
! Custom group iteration callback data
TYPE, bind(c) :: iter_info
- CHARACTER(LEN=1), DIMENSION(1:10) :: name ! The name of the object
+ CHARACTER(KIND=C_CHAR), DIMENSION(1:10) :: name ! The name of the object
INTEGER(c_int) :: TYPE ! The TYPE of the object
INTEGER(c_int) :: command ! The TYPE of RETURN value
END TYPE iter_info
@@ -125,7 +125,7 @@ SUBROUTINE test_iter_group(total_error)
USE HDF5
USE TH5_MISC
- USE ISO_C_BINDING
+ USE, INTRINSIC :: ISO_C_BINDING
USE liter_cb_mod
IMPLICIT NONE
diff --git a/fortran/test/tH5O_F03.f90 b/fortran/test/tH5O_F03.f90
index 8e014f4..834308b 100644
--- a/fortran/test/tH5O_F03.f90
+++ b/fortran/test/tH5O_F03.f90
@@ -31,7 +31,7 @@
MODULE visit_cb
USE HDF5
- USE ISO_C_BINDING
+ USE, INTRINSIC :: ISO_C_BINDING
IMPLICIT NONE
@@ -53,7 +53,7 @@ MODULE visit_cb
!
! Object visit structs
TYPE, bind(c) :: obj_visit_t
- CHARACTER(LEN=1), DIMENSION(1:180) :: path ! Path to object
+ CHARACTER(KIND=C_CHAR), DIMENSION(1:180) :: path ! Path to object
INTEGER :: type_obj ! type of object
END TYPE obj_visit_t
diff --git a/fortran/test/tf.F90 b/fortran/test/tf.F90
index c308243..ba4f492 100644
--- a/fortran/test/tf.F90
+++ b/fortran/test/tf.F90
@@ -44,7 +44,7 @@ MODULE TH5_MISC
REAL :: a
INTEGER :: x
DOUBLE PRECISION :: y
- CHARACTER(KIND=C_CHAR, LEN=1) :: z
+ CHARACTER(KIND=C_CHAR) :: z
END TYPE comp_datatype
PUBLIC :: H5_SIZEOF