zhangyiss/spack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hdf5: Add missing "close" statement (#28317)

Browse Source 
* hdf5: Add missing "close" statement

* hdf5: Apply fortran-kinds patch only to @1.10.7
This commit is contained in:
Erik Schnetter 2022-01-20 15:11:34 -05:00 committed by GitHub
parent 9a23fbbcf0
commit de7de9778f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
var/spack/repos/builtin/packages/hdf5/fortran-kinds.patch Normal file
View File

@ -0,0 +1,20 @@
--- a/config/cmake/HDF5UseFortran.cmake
+++ a/config/cmake/HDF5UseFortran.cmake
@@ -181,6 +181,7 @@
WRITE(8,'(I0)') max_decimal_prec
WRITE(8,'(I0)') num_ikinds
WRITE(8,'(I0)') num_rkinds
+ CLOSE(8)
END PROGRAM FC_AVAIL_KINDS
"
)
--- a/m4/aclocal_fc.f90
+++ b/m4/aclocal_fc.f90
@@ -151,6 +151,7 @@
WRITE(8,'(I0)') max_decimal_prec
WRITE(8,'(I0)') num_ikinds
WRITE(8,'(I0)') num_rkinds
+ CLOSE(8)
END PROGRAM FC_AVAIL_KINDS
!---- END ----- Determine the available KINDs for REALs and INTEGERs

2
var/spack/repos/builtin/packages/hdf5/package.py
View File

@ -160,6 +160,8 @@ class Hdf5(CMakePackage):
patch('hdf5_1.8_gcc10.patch', when='@:1.8.21', patch('hdf5_1.8_gcc10.patch', when='@:1.8.21',
sha256='0e20187cda3980a4fdff410da92358b63de7ebef2df1d7a425371af78e50f666') sha256='0e20187cda3980a4fdff410da92358b63de7ebef2df1d7a425371af78e50f666')
patch('fortran-kinds.patch', when='@1.10.7')
# The argument 'buf_size' of the C function 'h5fget_file_image_c' is # The argument 'buf_size' of the C function 'h5fget_file_image_c' is
# declared as intent(in) though it is modified by the invocation. As a # declared as intent(in) though it is modified by the invocation. As a
# result, aggressive compilers such as Fujitsu's may do a wrong # result, aggressive compilers such as Fujitsu's may do a wrong