From 5797a0745461a63db09770a52499b7ea784f8ae1 Mon Sep 17 00:00:00 2001
From: Simon Tournier <zimon.toutoune@gmail.com>
Date: Tue, 28 Oct 2025 11:57:53 +0100
Subject: [PATCH] gnu: r-dtwclust: Adjust GCC@14.

* gnu/packages/cran.scm (r-dtwclust)[arguments]: Add phase that decreases
GCC@14 strictness.

Change-Id: I4235fb9444e67112ee0906b479445b5b1c5ef7b0
---
 gnu/packages/cran.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 1cca86277b0a90eece6876e1bb1cba87672db014..89fcb6bcca7e1916545c1d27d8dc80cc2aeb0ac4 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -19568,6 +19568,22 @@ phylogenies and ancestral character states.")
         (base32 "0by01x4qpf1pin5l61wmm600bmsnlnns9knwb0qmjlj72pmwfkqh"))))
     (properties `((upstream-name . "dtwclust")))
     (build-system r-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 'relax-gcc-14-strictness
+            (lambda _
+              ;; XXX FIXME: $HOME/.R/Makevars seems to be the only way to
+              ;; set custom CFLAGS for R?
+              (setenv "HOME" (getcwd))
+              (mkdir-p ".R")
+              (with-directory-excursion ".R"
+                (with-output-to-file "Makevars"
+                  (lambda _
+                    (display (string-append
+                              "CXXFLAGS=-g -O2"
+                              " -Wno-error=changes-meaning\n"))))))))))
     (propagated-inputs
      (list r-clue
            r-cluster