mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-02-17 16:10:24 +08:00
[svn-r26989] Changed the BIND(C) derived types from:
CHARACTER(LEN=1) to CHARACTER(KIND=C_CHAR) to make Sun compilers happy.
This commit is contained in:
parent
d52e65a95f
commit
2c575bb79a
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user