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.

Sign up for GitHub

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

addresses compilation fortran warnings on Frontier #3236

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
3 changes: 1 addition & 2 deletions fortran/src/H5Aff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
2 changes: 1 addition & 1 deletion fortran/src/H5Dff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
1 change: 0 additions & 1 deletion fortran/src/H5ESff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

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

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

USE H5GLOBAL
IMPLICIT NONE

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

MODULE H5I

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

CONTAINS

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

MODULE H5P

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

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

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

USE H5GLOBAL
IMPLICIT NONE

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

MODULE H5T

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

Expand Down
1 change: 0 additions & 1 deletion fortran/src/H5VLff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
1 change: 1 addition & 0 deletions fortran/src/H5Zff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,7 @@
MODULE H5Z

USE H5GLOBAL
IMPLICIT NONE

CONTAINS

Expand Down
1 change: 0 additions & 1 deletion fortran/src/H5_ff.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,6 @@

MODULE H5LIB

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

Expand Down