From b77a918e54e4c9a3ce0e777d44e18af83588cdad Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Fri, 31 Oct 2025 22:49:13 +0300
Subject: [PATCH] gnu: mpb: Fix build with gcc-14.

* gnu/packages/engineering.scm (mpb): Fix build with gcc-14.
[arguments]<#:phases>: Add "relax-gcc-14-strictness" phase.

Change-Id: I50c0b7507221a2c738d165b33e99474c65300130
---
 gnu/packages/engineering.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index ac1f4c0c82d52c5f9ac04bddce532cf0933453dc..5fb88cfb6b10067a078bffe0b5fdafe88d3867d6 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -1806,7 +1806,17 @@ for scientific simulations.")
        (list (string-append "--with-libctl="
                             (assoc-ref %build-inputs "libctl")
                             "/share/libctl")
-             "--enable-shared")))
+             "--enable-shared")
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'configure 'relax-gcc-14-strictness
+           (lambda _
+             (setenv "CFLAGS"
+                     (string-join
+                      (list "-Wno-error=incompatible-pointer-types"
+                            "-Wno-error=implicit-function-declaration"
+                            "-Wno-error=int-conversion")
+                      " ")))))))
     (native-inputs
      `(("fortran" ,gfortran)
        ("pkg-config" ,pkg-config)