diff options
| -rw-r--r-- | fortran/test/tH5L_F03.f90 | 4 | ||||
| -rw-r--r-- | fortran/test/tH5O_F03.f90 | 4 | ||||
| -rw-r--r-- | fortran/test/tf.F90 | 2 |
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 |