addresses compilation fortran warnings on Frontier (#3236)

16 files changed, 12 insertions, 20 deletions

diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90
index b30044d..9216060 100644
--- a/fortran/src/H5Aff.F90
+++ b/fortran/src/H5Aff.F90
@@ -70,9 +70,8 @@
 
 MODULE H5A
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_CHAR, C_LOC, C_INT
-
   USE H5GLOBAL
+  IMPLICIT NONE
 
   PRIVATE h5awrite_char_scalar, h5awrite_ptr
   PRIVATE h5aread_char_scalar, h5aread_ptr
diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90
index 5b571e5..66bee98 100644
--- a/fortran/src/H5Dff.F90
+++ b/fortran/src/H5Dff.F90
@@ -85,10 +85,10 @@
 
 MODULE H5D
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
   USE H5GLOBAL
   USE H5LIB, ONLY : h5kind_to_type
   USE H5S, ONLY : H5Sget_simple_extent_ndims_f, H5Sclose_f
+  IMPLICIT NONE
 
   PRIVATE h5dread_vl_integer, h5dread_vl_real, h5dread_vl_string
   PRIVATE h5dwrite_vl_integer, h5dwrite_vl_real, h5dwrite_vl_string
diff --git a/fortran/src/H5ESff.F90 b/fortran/src/H5ESff.F90
index f102d23..76e8488 100644
--- a/fortran/src/H5ESff.F90
+++ b/fortran/src/H5ESff.F90
@@ -33,7 +33,6 @@
 
 MODULE H5ES
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_INT64_T, C_BOOL
   USE H5GLOBAL
   IMPLICIT NONE
 
diff --git a/fortran/src/H5Eff.F90 b/fortran/src/H5Eff.F90
index a4c9e8c..4ef18c1 100644
--- a/fortran/src/H5Eff.F90
+++ b/fortran/src/H5Eff.F90
@@ -37,8 +37,8 @@
 
 MODULE H5E
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR
   USE H5GLOBAL
+  IMPLICIT NONE
 
   INTEGER, PARAMETER :: PRINTON  = 1 !< Turn on automatic printing of errors
   INTEGER, PARAMETER :: PRINTOFF = 0 !< Turn off automatic printing of errors
diff --git a/fortran/src/H5Fff.F90 b/fortran/src/H5Fff.F90
index aec149f..f8a7405 100644
--- a/fortran/src/H5Fff.F90
+++ b/fortran/src/H5Fff.F90
@@ -36,7 +36,7 @@
 !
 
 MODULE H5F
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_PTR
+
   USE H5GLOBAL
   IMPLICIT NONE
 
diff --git a/fortran/src/H5Gff.F90 b/fortran/src/H5Gff.F90
index c8701a2..a9c7208 100644
--- a/fortran/src/H5Gff.F90
+++ b/fortran/src/H5Gff.F90
@@ -36,10 +36,10 @@
 !
 
 MODULE H5G
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_CHAR, C_INT
+
   USE H5GLOBAL
   USE H5P, ONLY : H5Pcreate_f, H5Pset_local_heap_size_hint_f, H5Pclose_f
-
+  IMPLICIT NONE
 
 !
 ! @brief Fortran2003 Derived Type for @ref H5G_info_t
diff --git a/fortran/src/H5Iff.F90 b/fortran/src/H5Iff.F90
index 6e6662c..7c449ea 100644
--- a/fortran/src/H5Iff.F90
+++ b/fortran/src/H5Iff.F90
@@ -37,8 +37,8 @@
 
 MODULE H5I
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
   USE H5GLOBAL
+  IMPLICIT NONE
 
 CONTAINS
 
diff --git a/fortran/src/H5Lff.F90 b/fortran/src/H5Lff.F90
index e2e9e49..86bee88 100644
--- a/fortran/src/H5Lff.F90
+++ b/fortran/src/H5Lff.F90
@@ -37,12 +37,9 @@
 
 MODULE H5L
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR, C_INT64_T, C_INT
   USE H5GLOBAL
-
   IMPLICIT NONE
 
-
   TYPE, bind(c) :: union_t
      TYPE(H5O_TOKEN_T_F) :: token !< Type for object tokens
      INTEGER(size_t)  :: val_size !< Size of a soft link or user-defined link value
diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90
index 54c503e..e7862cf 100644
--- a/fortran/src/H5Off.F90
+++ b/fortran/src/H5Off.F90
@@ -37,11 +37,9 @@
 
 MODULE H5O
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR, C_INT64_T, C_LONG, C_INT, C_LOC
   USE H5GLOBAL
   IMPLICIT NONE
 
-
 !> @brief h5o_info_t derived type. The time values are an integer array as specified in the Fortran intrinsic DATE_AND_TIME(VALUES).
   TYPE, BIND(C) :: h5o_info_t
      INTEGER(C_LONG)     :: fileno     !< File number that object is located in
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
index c6229f7..16ad2ac 100644
--- a/fortran/src/H5Pff.F90
+++ b/fortran/src/H5Pff.F90
@@ -39,7 +39,6 @@
 
 MODULE H5P
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
   USE H5GLOBAL
   USE H5fortkit
 
diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90
index 1b2cd8a..ea7cbb6 100644
--- a/fortran/src/H5Rff.F90
+++ b/fortran/src/H5Rff.F90
@@ -46,8 +46,9 @@
 !
 
 MODULE H5R
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_SIGNED_CHAR
+
   USE H5GLOBAL
+  IMPLICIT NONE
 
   ! If you change the value of these parameters, do not forget to change corresponding
   ! values in the H5f90.h file.
diff --git a/fortran/src/H5Sff.F90 b/fortran/src/H5Sff.F90
index 79386f3..fff32c0 100644
--- a/fortran/src/H5Sff.F90
+++ b/fortran/src/H5Sff.F90
@@ -37,8 +37,9 @@
 !
 
 MODULE H5S
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_INT
+
   USE H5GLOBAL
+  IMPLICIT NONE
 
 CONTAINS
 !>
diff --git a/fortran/src/H5Tff.F90 b/fortran/src/H5Tff.F90
index fa65ef6..4e05bbc 100644
--- a/fortran/src/H5Tff.F90
+++ b/fortran/src/H5Tff.F90
@@ -38,7 +38,6 @@
 
 MODULE H5T
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR,  C_CHAR, C_NULL_PTR
   USE H5GLOBAL
   IMPLICIT NONE
 
diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90
index 56edccb..5a1fa9f 100644
--- a/fortran/src/H5VLff.F90
+++ b/fortran/src/H5VLff.F90
@@ -37,7 +37,6 @@
 
 MODULE H5VL
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR, C_INT64_T, C_INT
   USE H5GLOBAL
   USE H5fortkit
 
diff --git a/fortran/src/H5Zff.F90 b/fortran/src/H5Zff.F90
index a31e597..eae94c5 100644
--- a/fortran/src/H5Zff.F90
+++ b/fortran/src/H5Zff.F90
@@ -38,6 +38,7 @@
 MODULE H5Z
 
   USE H5GLOBAL
+  IMPLICIT NONE
 
 CONTAINS
 
diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90
index ecea23d..42e7058 100644
--- a/fortran/src/H5_ff.F90
+++ b/fortran/src/H5_ff.F90
@@ -51,7 +51,6 @@
 
 MODULE H5LIB
 
-  USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_INTPTR_T, C_INT64_T
   USE H5GLOBAL
   IMPLICIT NONE