Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

addresses compilation fortran warnings on Frontier #3236

Merged
merged 1 commit into from
Jul 12, 2023
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
addresses compilation fortran warnings on Frontier
brtnfld committed Jul 10, 2023
commit 81ae2fe27e32ad218025350181355d6cdf0a670b
3 changes: 1 addition & 2 deletions fortran/src/H5Aff.F90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion fortran/src/H5Dff.F90
Original file line number Diff line number Diff line change
@@ -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
1 change: 0 additions & 1 deletion fortran/src/H5ESff.F90
Original file line number Diff line number Diff line change
@@ -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

2 changes: 1 addition & 1 deletion fortran/src/H5Eff.F90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion fortran/src/H5Fff.F90
Original file line number Diff line number Diff line change
@@ -36,7 +36,7 @@
!

MODULE H5F
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_PTR

USE H5GLOBAL
IMPLICIT NONE

4 changes: 2 additions & 2 deletions fortran/src/H5Gff.F90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 1 addition & 1 deletion fortran/src/H5Iff.F90
Original file line number Diff line number Diff line change
@@ -37,8 +37,8 @@

MODULE H5I

USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
USE H5GLOBAL
IMPLICIT NONE

CONTAINS

3 changes: 0 additions & 3 deletions fortran/src/H5Lff.F90
Original file line number Diff line number Diff line change
@@ -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
2 changes: 0 additions & 2 deletions fortran/src/H5Off.F90
Original file line number Diff line number Diff line change
@@ -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
1 change: 0 additions & 1 deletion fortran/src/H5Pff.F90
Original file line number Diff line number Diff line change
@@ -39,7 +39,6 @@

MODULE H5P

USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
USE H5GLOBAL
USE H5fortkit

3 changes: 2 additions & 1 deletion fortran/src/H5Rff.F90
Original file line number Diff line number Diff line change
@@ -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.
3 changes: 2 additions & 1 deletion fortran/src/H5Sff.F90
Original file line number Diff line number Diff line change
@@ -37,8 +37,9 @@
!

MODULE H5S
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_INT

USE H5GLOBAL
IMPLICIT NONE

CONTAINS
!>
1 change: 0 additions & 1 deletion fortran/src/H5Tff.F90
Original file line number Diff line number Diff line change
@@ -38,7 +38,6 @@

MODULE H5T

USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_PTR
USE H5GLOBAL
IMPLICIT NONE

1 change: 0 additions & 1 deletion fortran/src/H5VLff.F90
Original file line number Diff line number Diff line change
@@ -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

1 change: 1 addition & 0 deletions fortran/src/H5Zff.F90
Original file line number Diff line number Diff line change
@@ -38,6 +38,7 @@
MODULE H5Z

USE H5GLOBAL
IMPLICIT NONE

CONTAINS

1 change: 0 additions & 1 deletion fortran/src/H5_ff.F90
Original file line number Diff line number Diff line change
@@ -51,7 +51,6 @@

MODULE H5LIB

USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_INTPTR_T, C_INT64_T
USE H5GLOBAL
IMPLICIT NONE