diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-01 16:25:32 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-01 16:25:32 (GMT) |
| commit | 2c575bb79a1e762653aa4393b141bf0c3b78cb01 (patch) | |
| tree | 3c74d982f014db39ab90365de9d0bd1bbc14740a /fortran/test/tH5O_F03.f90 | |
| parent | d52e65a95f4ba380101bbf908755c0b02d16b0bb (diff) | |
| download | hdf5-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/tH5O_F03.f90')
| -rw-r--r-- | fortran/test/tH5O_F03.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
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 |