commit:     806cebe99a001bf512a8d7feddb650bee811409b
Author:     Sam James <sam <AT> gentoo <DOT> org>
AuthorDate: Sat Jun 21 06:45:04 2025 +0000
Commit:     Sam James <sam <AT> gentoo <DOT> org>
CommitDate: Sat Jun 21 06:45:31 2025 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=806cebe9

sci-libs/lapack: fix build issue

Not clear to me why I didn't hit this.

Closes: https://bugs.gentoo.org/958525
Signed-off-by: Sam James <sam <AT> gentoo.org>

 .../lapack/files/lapack-3.12.1-broken-flow.patch   | 32 ++++++++++++++++++++++
 sci-libs/lapack/lapack-3.12.1.ebuild               |  4 +++
 2 files changed, 36 insertions(+)

diff --git a/sci-libs/lapack/files/lapack-3.12.1-broken-flow.patch 
b/sci-libs/lapack/files/lapack-3.12.1-broken-flow.patch
new file mode 100644
index 000000000000..b11d5cad326b
--- /dev/null
+++ b/sci-libs/lapack/files/lapack-3.12.1-broken-flow.patch
@@ -0,0 +1,32 @@
+https://bugs.gentoo.org/958525
+https://github.com/Reference-LAPACK/lapack/pull/1093
+
+From 3aa877584bcc96e1a0ee37742628946c56afc15f Mon Sep 17 00:00:00 2001
+From: Wouter Deconinck <[email protected]>
+Date: Fri, 10 Jan 2025 13:05:28 -0600
+Subject: [PATCH] dlahrd.f: consistent line reflow for DTRMV calls
+
+--- a/SRC/DEPRECATED/dlahrd.f
++++ b/SRC/DEPRECATED/dlahrd.f
+@@ -231,8 +231,8 @@ SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
+ *
+ *           w := T**T *w
+ *
+-            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1, T, LDT,
+-     $                  T( 1, NB ), 1 )
++            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1,
++     $                  T, LDT, T( 1, NB ), 1 )
+ *
+ *           b2 := b2 - V2*w
+ *
+@@ -270,8 +270,8 @@ SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
+ *        Compute T(1:i,i)
+ *
+          CALL DSCAL( I-1, -TAU( I ), T( 1, I ), 1 )
+-         CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T, LDT,
+-     $               T( 1, I ), 1 )
++         CALL DTRMV( 'Upper', 'No transpose', 'Non-unit', I-1,
++     $               T, LDT, T( 1, I ), 1 )
+          T( I, I ) = TAU( I )
+ *
+    10 CONTINUE

diff --git a/sci-libs/lapack/lapack-3.12.1.ebuild 
b/sci-libs/lapack/lapack-3.12.1.ebuild
index 565ae06f01c0..f49428e5862c 100644
--- a/sci-libs/lapack/lapack-3.12.1.ebuild
+++ b/sci-libs/lapack/lapack-3.12.1.ebuild
@@ -33,6 +33,10 @@ BDEPEND="
        test? ( ${PYTHON_DEPS} )
 "
 
+PATCHES=(
+       "${FILESDIR}"/${PN}-3.12.1-broken-flow.patch
+)
+
 pkg_setup() {
        fortran-2_pkg_setup
        use test && python-any-r1_pkg_setup

Reply via email to