From 2c575bb79a1e762653aa4393b141bf0c3b78cb01 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 1 May 2015 11:25:32 -0500
Subject: [svn-r26989] Changed the BIND(C) derived types from:

CHARACTER(LEN=1) to CHARACTER(KIND=C_CHAR) to make Sun compilers happy.
---
 fortran/test/tH5L_F03.f90 | 4 ++--
 fortran/test/tH5O_F03.f90 | 4 ++--
 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
-- 
cgit v0.12