guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

gnu: mpich: Allow compilation with GCC 10.

Browse source 
Fixes <https://issues.guix.gnu.org/53320>
Reported by Clément Barthelemy <clement.barthelemy@inria.fr>.

* gnu/packages/mpi.scm (mpich)[arguments]: Add 'define-gfortran-wrapper'
phase.
This commit is contained in:
Ludovic Courtès 2022-01-17 16:03:57 +01:00 committed by Ludovic Courtès
parent bf23862abc
commit 7bf85e63c1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 25 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/mpi.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2018, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Dave Love <fx@gnu.org>
@ -502,7 +502,30 @@ arrays) that expose a buffer interface.")
before after)
(string-append "pmpi_convenience_libs = "
before " " after)))
#t)))))
#t))
(add-before 'configure 'define-gfortran-wrapper
(lambda* (#:key inputs #:allow-other-keys)
;; 'configure' checks whether the Fortran compiler
;; allows argument type mismatch. Since gfortran >= 10
;; does not, provide a wrapper that passes
;; '-fallow-argument-mismatch' to get the desired
;; behavior.
(mkdir-p ".gfortran-wrapper/bin")
(call-with-output-file ".gfortran-wrapper/bin/gfortran"
(lambda (port)
(display (string-append "#!" (which "sh") "\n")
port)
(display
(string-append "exec \"" (which "gfortran")
"\" -fallow-argument-mismatch"
" \"$@\"\n")
port)
(chmod port #o755)))
(setenv "PATH"
(string-append (getcwd) "/"
".gfortran-wrapper/bin:"
(getenv "PATH"))))))))
(home-page "https://www.mpich.org/")
(synopsis "Implementation of the Message Passing Interface (MPI)")
(description