From de7de9778f78f3d0e0684cd65ff1c299b5a996d8 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Thu, 20 Jan 2022 15:11:34 -0500 Subject: hdf5: Add missing "close" statement (#28317) * hdf5: Add missing "close" statement * hdf5: Apply fortran-kinds patch only to @1.10.7 --- .../repos/builtin/packages/hdf5/fortran-kinds.patch | 20 ++++++++++++++++++++ var/spack/repos/builtin/packages/hdf5/package.py | 2 ++ 2 files changed, 22 insertions(+) create mode 100644 var/spack/repos/builtin/packages/hdf5/fortran-kinds.patch (limited to 'var') diff --git a/var/spack/repos/builtin/packages/hdf5/fortran-kinds.patch b/var/spack/repos/builtin/packages/hdf5/fortran-kinds.patch new file mode 100644 index 0000000000..ffe5e6f3f0 --- /dev/null +++ b/var/spack/repos/builtin/packages/hdf5/fortran-kinds.patch @@ -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 + diff --git a/var/spack/repos/builtin/packages/hdf5/package.py b/var/spack/repos/builtin/packages/hdf5/package.py index 93edaea1e6..47af3ea830 100644 --- a/var/spack/repos/builtin/packages/hdf5/package.py +++ b/var/spack/repos/builtin/packages/hdf5/package.py @@ -160,6 +160,8 @@ class Hdf5(CMakePackage): patch('hdf5_1.8_gcc10.patch', when='@:1.8.21', sha256='0e20187cda3980a4fdff410da92358b63de7ebef2df1d7a425371af78e50f666') + patch('fortran-kinds.patch', when='@1.10.7') + # 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 # result, aggressive compilers such as Fujitsu's may do a wrong -- cgit v1.2.3-60-g2f50