mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

addresses compilation fortran warnings on Frontier (#3236)

Browse Source
This commit is contained in:
Scot Breitenfeld 2023-07-12 13:56:02 -05:00 committed by GitHub
parent 3af8bb267d
commit dfe5cb24b9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
16 changed files with 12 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fortran/src/H5Aff.F90
View File

@ -70,9 +70,8 @@
MODULE H5A MODULE H5A
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_CHAR, C_LOC, C_INT
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
PRIVATE h5awrite_char_scalar, h5awrite_ptr PRIVATE h5awrite_char_scalar, h5awrite_ptr
PRIVATE h5aread_char_scalar, h5aread_ptr PRIVATE h5aread_char_scalar, h5aread_ptr

2
fortran/src/H5Dff.F90
View File

@ -85,10 +85,10 @@
MODULE H5D MODULE H5D
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
USE H5GLOBAL USE H5GLOBAL
USE H5LIB, ONLY : h5kind_to_type USE H5LIB, ONLY : h5kind_to_type
USE H5S, ONLY : H5Sget_simple_extent_ndims_f, H5Sclose_f USE H5S, ONLY : H5Sget_simple_extent_ndims_f, H5Sclose_f
IMPLICIT NONE
PRIVATE h5dread_vl_integer, h5dread_vl_real, h5dread_vl_string PRIVATE h5dread_vl_integer, h5dread_vl_real, h5dread_vl_string
PRIVATE h5dwrite_vl_integer, h5dwrite_vl_real, h5dwrite_vl_string PRIVATE h5dwrite_vl_integer, h5dwrite_vl_real, h5dwrite_vl_string

1
fortran/src/H5ESff.F90
View File

@ -33,7 +33,6 @@
MODULE H5ES MODULE H5ES
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_INT64_T, C_BOOL
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE IMPLICIT NONE

2
fortran/src/H5Eff.F90
View File

@ -37,8 +37,8 @@
MODULE H5E MODULE H5E
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
INTEGER, PARAMETER :: PRINTON = 1 !< Turn on automatic printing of errors INTEGER, PARAMETER :: PRINTON = 1 !< Turn on automatic printing of errors
INTEGER, PARAMETER :: PRINTOFF = 0 !< Turn off automatic printing of errors INTEGER, PARAMETER :: PRINTOFF = 0 !< Turn off automatic printing of errors

2
fortran/src/H5Fff.F90
View File

@ -36,7 +36,7 @@
! !
MODULE H5F MODULE H5F
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_PTR
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE IMPLICIT NONE

4
fortran/src/H5Gff.F90
View File

@ -36,10 +36,10 @@
! !
MODULE H5G MODULE H5G
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_CHAR, C_INT
USE H5GLOBAL USE H5GLOBAL
USE H5P, ONLY : H5Pcreate_f, H5Pset_local_heap_size_hint_f, H5Pclose_f USE H5P, ONLY : H5Pcreate_f, H5Pset_local_heap_size_hint_f, H5Pclose_f
IMPLICIT NONE
! !
! @brief Fortran2003 Derived Type for @ref H5G_info_t ! @brief Fortran2003 Derived Type for @ref H5G_info_t

2
fortran/src/H5Iff.F90
View File

@ -37,8 +37,8 @@
MODULE H5I MODULE H5I
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
CONTAINS CONTAINS

3
fortran/src/H5Lff.F90
View File

@ -37,12 +37,9 @@
MODULE H5L MODULE H5L
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR, C_INT64_T, C_INT
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE IMPLICIT NONE
TYPE, bind(c) :: union_t TYPE, bind(c) :: union_t
TYPE(H5O_TOKEN_T_F) :: token !< Type for object tokens 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 INTEGER(size_t) :: val_size !< Size of a soft link or user-defined link value

2
fortran/src/H5Off.F90
View File

@ -37,11 +37,9 @@
MODULE H5O 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 USE H5GLOBAL
IMPLICIT NONE 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). !> @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 TYPE, BIND(C) :: h5o_info_t
INTEGER(C_LONG) :: fileno !< File number that object is located in INTEGER(C_LONG) :: fileno !< File number that object is located in

1
fortran/src/H5Pff.F90
View File

@ -39,7 +39,6 @@
MODULE H5P MODULE H5P
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR
USE H5GLOBAL USE H5GLOBAL
USE H5fortkit USE H5fortkit

3
fortran/src/H5Rff.F90
View File

@ -46,8 +46,9 @@
! !
MODULE H5R MODULE H5R
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_SIGNED_CHAR
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
! If you change the value of these parameters, do not forget to change corresponding ! If you change the value of these parameters, do not forget to change corresponding
! values in the H5f90.h file. ! values in the H5f90.h file.

3
fortran/src/H5Sff.F90
View File

@ -37,8 +37,9 @@
! !
MODULE H5S MODULE H5S
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_INT
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
CONTAINS CONTAINS
!> !>

1
fortran/src/H5Tff.F90
View File

@ -38,7 +38,6 @@
MODULE H5T MODULE H5T
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_CHAR, C_NULL_PTR
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE IMPLICIT NONE

1
fortran/src/H5VLff.F90
View File

@ -37,7 +37,6 @@
MODULE H5VL MODULE H5VL
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_FUNPTR, C_CHAR, C_INT64_T, C_INT
USE H5GLOBAL USE H5GLOBAL
USE H5fortkit USE H5fortkit

1
fortran/src/H5Zff.F90
View File

@ -38,6 +38,7 @@
MODULE H5Z MODULE H5Z
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE
CONTAINS CONTAINS

1
fortran/src/H5_ff.F90
View File

@ -51,7 +51,6 @@
MODULE H5LIB MODULE H5LIB
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_INTPTR_T, C_INT64_T
USE H5GLOBAL USE H5GLOBAL
IMPLICIT NONE IMPLICIT NONE