commit:     6d70a0b77abcf1b0be8e440a9c608fcf4c39159d
Author:     Sam James <sam <AT> gentoo <DOT> org>
AuthorDate: Sun Jun 29 03:17:16 2025 +0000
Commit:     Sam James <sam <AT> gentoo <DOT> org>
CommitDate: Sun Jun 29 03:17:16 2025 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=6d70a0b7

sci-libs/lapack: fix another USE=deprecated build issue

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

 .../files/lapack-3.12.1-broken-flow-deux.patch     | 196 +++++++++++++++++++++
 sci-libs/lapack/lapack-3.12.1.ebuild               |   1 +
 2 files changed, 197 insertions(+)

diff --git a/sci-libs/lapack/files/lapack-3.12.1-broken-flow-deux.patch 
b/sci-libs/lapack/files/lapack-3.12.1-broken-flow-deux.patch
new file mode 100644
index 000000000000..430b43d48ad4
--- /dev/null
+++ b/sci-libs/lapack/files/lapack-3.12.1-broken-flow-deux.patch
@@ -0,0 +1,196 @@
+https://bugs.gentoo.org/958932
+https://github.com/Reference-LAPACK/lapack/pull/1094
+
+From f5103fc3b42fcff40e70b1fa4b5567df01dae9bc Mon Sep 17 00:00:00 2001
+From: Wouter Deconinck <[email protected]>
+Date: Fri, 10 Jan 2025 14:32:30 -0600
+Subject: [PATCH] ?ge(lq|qr)s.f: WORK( LWORK ) -> WORK( * )
+
+---
+ SRC/DEPRECATED/cgelqs.f | 4 ++--
+ SRC/DEPRECATED/cgeqrs.f | 4 ++--
+ SRC/DEPRECATED/dgelqs.f | 4 ++--
+ SRC/DEPRECATED/dgeqrs.f | 4 ++--
+ SRC/DEPRECATED/sgelqs.f | 4 ++--
+ SRC/DEPRECATED/sgeqrs.f | 4 ++--
+ SRC/DEPRECATED/zgelqs.f | 4 ++--
+ SRC/DEPRECATED/zgeqrs.f | 4 ++--
+ 8 files changed, 16 insertions(+), 16 deletions(-)
+
+diff --git a/SRC/DEPRECATED/cgelqs.f b/SRC/DEPRECATED/cgelqs.f
+index 47e17a5830..aba3632a74 100644
+--- a/SRC/DEPRECATED/cgelqs.f
++++ b/SRC/DEPRECATED/cgelqs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/cgeqrs.f b/SRC/DEPRECATED/cgeqrs.f
+index 13ac7f74fd..9d0527283d 100644
+--- a/SRC/DEPRECATED/cgeqrs.f
++++ b/SRC/DEPRECATED/cgeqrs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/dgelqs.f b/SRC/DEPRECATED/dgelqs.f
+index dc08f2398b..1bab678901 100644
+--- a/SRC/DEPRECATED/dgelqs.f
++++ b/SRC/DEPRECATED/dgelqs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/dgeqrs.f b/SRC/DEPRECATED/dgeqrs.f
+index bfb7bd8bb8..e3e6c4048e 100644
+--- a/SRC/DEPRECATED/dgeqrs.f
++++ b/SRC/DEPRECATED/dgeqrs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/sgelqs.f b/SRC/DEPRECATED/sgelqs.f
+index 330d4d5850..2b1dd44b71 100644
+--- a/SRC/DEPRECATED/sgelqs.f
++++ b/SRC/DEPRECATED/sgelqs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/sgeqrs.f b/SRC/DEPRECATED/sgeqrs.f
+index ed11489104..bdbad5dcb4 100644
+--- a/SRC/DEPRECATED/sgeqrs.f
++++ b/SRC/DEPRECATED/sgeqrs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/zgelqs.f b/SRC/DEPRECATED/zgelqs.f
+index 5f629f8c7e..772165dfd9 100644
+--- a/SRC/DEPRECATED/zgelqs.f
++++ b/SRC/DEPRECATED/zgelqs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+diff --git a/SRC/DEPRECATED/zgeqrs.f b/SRC/DEPRECATED/zgeqrs.f
+index 6583e38591..cc33a45fc1 100644
+--- a/SRC/DEPRECATED/zgeqrs.f
++++ b/SRC/DEPRECATED/zgeqrs.f
+@@ -16,7 +16,7 @@
+ *       ..
+ *       .. Array Arguments ..
+ *       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-*      $                   WORK( LWORK )
++*      $                   WORK( * )
+ *       ..
+ *
+ *
+@@ -128,7 +128,7 @@ SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, 
LWORK,
+ *     ..
+ *     .. Array Arguments ..
+       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
+

diff --git a/sci-libs/lapack/lapack-3.12.1.ebuild 
b/sci-libs/lapack/lapack-3.12.1.ebuild
index f49428e5862c..667350e20cc9 100644
--- a/sci-libs/lapack/lapack-3.12.1.ebuild
+++ b/sci-libs/lapack/lapack-3.12.1.ebuild
@@ -35,6 +35,7 @@ BDEPEND="
 
 PATCHES=(
        "${FILESDIR}"/${PN}-3.12.1-broken-flow.patch
+       "${FILESDIR}"/${PN}-3.12.1-broken-flow-deux.patch
 )
 
 pkg_setup() {

Reply via email to