ports/math/lapack/files/patch-SRC_DEPRECATED_sgeqrs.f

24 lines
848 B
Fortran

--- SRC/DEPRECATED/sgeqrs.f.orig 2024-12-03 11:39:11 UTC
+++ SRC/DEPRECATED/sgeqrs.f
@@ -15,8 +15,9 @@
* INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
* ..
* .. Array Arguments ..
+* Patch from https://github.com/Reference-LAPACK/lapack/pull/1094
* REAL A( LDA, * ), B( LDB, * ), TAU( * ),
-* $ WORK( LWORK )
+* $ WORK( * )
* ..
*
*
@@ -127,8 +128,9 @@
INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS
* ..
* .. Array Arguments ..
+* Patch from https://github.com/Reference-LAPACK/lapack/pull/1094
REAL A( LDA, * ), B( LDB, * ), TAU( * ),
- $ WORK( LWORK )
+ $ WORK( * )
* ..
*
* =====================================================================