[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:
Scot Breitenfeld 2015-05-01 11:25:32 -05:00
parent d52e65a95f
commit 2c575bb79a
3 changed files with 5 additions and 5 deletions

View File

@ -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

View File

@ -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

View File

@ -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