diff --git a/math/lapack/Makefile b/math/lapack/Makefile
index 81b40008ccf9..0868b1e0bd36 100644
--- a/math/lapack/Makefile
+++ b/math/lapack/Makefile
@@ -1,173 +1,174 @@
 PORTNAME?=	lapack
-PORTVERSION=	3.12.0
+PORTVERSION=	3.12.1
 .if !(defined(BLAS_SLAVEPORT) || defined(CBLAS_SLAVEPORT) || defined(XLAPACK_SLAVEPORT) || defined(LAPACKE_SLAVEPORT))
-PORTREVISION=	2
+PORTREVISION=	0
 .else
-PORTREVISION?=	1	# Never remove this line, keep PORTREVISION?=0 in case.
+PORTREVISION?=	0	# Never remove this line, keep PORTREVISION?=0 in case.
 .endif
 CATEGORIES=	math
 MASTER_SITES=	https://github.com/Reference-LAPACK/lapack/archive/refs/tags/:src	\
 		http://www.netlib.org/lapack/:man	\
 		LOCAL/thierry/lapack-${PORTVERSION}/:man
 DISTFILES=	v${PORTVERSION}${EXTRACT_SUFX}:src
 .if make(makesum) || !(defined(BLAS_SLAVEPORT) || defined(XLAPACK_SLAVEPORT))
 DISTFILES+=	manpages.tgz:man
 .endif
 DIST_SUBDIR=	lapack-${PORTVERSION}
 
 MAINTAINER?=	fortran@FreeBSD.org
 COMMENT?=	Linear Algebra PACKage
 WWW?=		https://www.netlib.org/lapack/
 
 LICENSE?=	BSD3CLAUSE
 
 USES=		cmake:testing cpe fortran
 WRKSRC=		${WRKDIR}/lapack-${PORTVERSION}
 # The actual math/scilab needs deprecated functions - to be removed later
 CMAKE_ON=	BUILD_SHARED_LIBS BUILD_DEPRECATED
 USE_LDCONFIG=	yes
 CPE_VENDOR=	lapack_project
 CPE_PRODUCT=	lapack
 
 SVERSION=	${PORTVERSION:R:R}
-PLIST_SUB=	SVERSION="${SVERSION}" VER=${PORTVERSION}
+LIBVERSION=	${PORTVERSION:C/1$/0/}
+PLIST_SUB=	SVERSION="${SVERSION}" VER=${LIBVERSION}
 
 .include <bsd.port.options.mk>
 
 .if defined(BLAS_SLAVEPORT)
 BUILD_WRKSRC=		${CONFIGURE_WRKSRC}/BLAS/SRC
 INSTALL_WRKSRC=		${BUILD_WRKSRC}
 BLASLIB=		libblas.a
 LIBS=			blas
 PLIST_SUB+=		BLAS="" CBLAS="@comment " LAPACK="@comment " XLAPACK="@comment " LAPACKE="@comment "
 .elif defined(CBLAS_SLAVEPORT)
 BUILD_DEPENDS+=		lapack>0:math/lapack
 LIB_DEPENDS+=		libblas.so:math/blas
 CMAKE_ON+=		CBLAS
 BUILD_WRKSRC=		${CONFIGURE_WRKSRC}/CBLAS
 INSTALL_WRKSRC=		${BUILD_WRKSRC}
 CBLASLIB=		libcblas.a
 LIBS=			cblas
 PLIST_SUB+=		BLAS="@comment " CBLAS="" LAPACK="@comment " XLAPACK="@comment " LAPACKE="@comment "
 .elif defined(LAPACKE_SLAVEPORT)
 USES+=			blaslapack
 CMAKE_ON+=		USE_OPTIMIZED_LAPACK LAPACKE
 CMAKE_ARGS+=		-DBLAS_LIBRARIES="${LOCALBASE}/lib/libblas.so"		\
 			-DLAPACK_LIBRARIES="${LOCALBASE}/lib/liblapack.so"
 BUILD_WRKSRC=		${CONFIGURE_WRKSRC}/LAPACKE
 INSTALL_WRKSRC=		${BUILD_WRKSRC}
 LAPACKELIB=		liblapacke.a
 PLIST_SUB+=		BLAS="@comment " CBLAS="@comment " LAPACK="@comment " XLAPACK="@comment " LAPACKE=""
 .elif defined(XLAPACK_SLAVEPORT)
 LIB_DEPENDS+=		libblas.so:math/blas		\
 			liblapack.so:math/lapack	\
 			libxblas.so:math/xblas
 FFLAGS+=		-fallow-argument-mismatch
 CMAKE_ON+=		USE_XBLAS  BUILD_TESTING
 CMAKE_ARGS+=		-DBLAS_LIBRARIES="${LOCALBASE}/lib/libblas.so"
 PLIST_SUB+=		BLAS="@comment " CBLAS="@comment " LAPACK="@comment " XLAPACK="" LAPACKE="@comment "
 .else
 # Upstream recommand to use an optimized BLAS, but it would cause conflicts
 # among the dependencies: for an optimized lapack switch to OpenBLAS.
 # BUILD_TESTING to get tmglib.
 LIB_DEPENDS+=		libblas.so:math/blas
 . if defined(MAINTAINER_MODE)
 USES+=			python:build,test
 BINARY_ALIAS+=		python3=${PYTHON_CMD}
 . endif
 CMAKE_ON+=		USE_OPTIMIZED_BLAS BUILD_TESTING
 CMAKE_ARGS+=		-DBLAS_LIBRARIES="${LOCALBASE}/lib/libblas.so"
 LIBS=			lapack
 PLIST_SUB+=		BLAS="@comment " CBLAS="@comment " LAPACK="" XLAPACK="@comment " LAPACKE="@comment "
 .endif
 
 .include <bsd.port.pre.mk>
 
 post-patch:
 	${SED} -Ee '\
 		s@^(FORTRAN|LOADER)([[:blank:]]*=)(.*)@\1\2 $${FC}@; \
 		s@^(OPTS[[:blank:]]*=)(.*)@\1 $${FFLAGS} $${EXTRAFLAGS}@; \
 		s@^NOOPT[[:blank:]]*=.*@& $${EXTRAFLAGS}@; \
 		s@^(LOADOPTS[[:blank:]]*=)(.*)@\1 $${LDFLAGS} $${EXTRAFLAGS}@; \
 		s@^(CC[[:blank:]]*=)(.*)@@; \
 		s@^(FC[[:blank:]]*=)(.*)@@; \
 		s@^(CFLAGS[[:blank:]]*)(=)(.*)@\1 += $${EXTRAFLAGS}@; \
 		s@^(FFLAGS[[:blank:]]*=)(.*)@@; \
 		s@^(LDFLAGS[[:blank:]]*=)(.*)@@; \
 		\@(BLAS|LAPACKE|RAN)LIB[[:blank:]]*=@d;' \
 			${WRKSRC}/make.inc.example > ${WRKSRC}/make.inc
 
 pre-configure:
 	${REINPLACE_CMD} -e 's@\./lapack_testing\.py@${S} &@' \
 		${WRKSRC}/Makefile
 	${FIND} ${WRKSRC} -name Makefile | ${XARGS}	\
 		${SED} -i ".bak" -e 's|^ifdef|.ifdef|;s|^endif|.endif|'
 
 post-build:
 .if defined(BLAS_SLAVEPORT)
 	${SED} -e 's|%%LIB%%|blas|g;s|cd SRC|cd BLAS/SRC|;s|SRC/lib|BLAS/SRC/lib|'	\
 		${FILESDIR}/static.mk >> ${BUILD_WRKSRC}/CMakeFiles/blas.dir/build.make
 	(cd ${CONFIGURE_WRKSRC} && ${MAKE} -f BLAS/SRC/CMakeFiles/blas.dir/build.make build-static)
 .elif defined(CBLAS_SLAVEPORT)
 	${SED} -e 's|%%LIB%%|cblas|g;s|cd SRC|cd CBLAS/src|;s|SRC/lib|CBLAS/src/lib|'	\
 		${FILESDIR}/static.mk >> ${BUILD_WRKSRC}/src/CMakeFiles/cblas.dir/build.make
 	(cd ${CONFIGURE_WRKSRC} && ${MAKE} -f CBLAS/src/CMakeFiles/cblas.dir/build.make build-static)
 .elif defined(LAPACKE_SLAVEPORT)
 	${SED} -e 's|%%LIB%%|lapacke|g;s|cd SRC|cd LAPACKE|' ${FILESDIR}/static.mk	\
 		>> ${BUILD_WRKSRC}/CMakeFiles/lapacke.dir/build.make
 	(cd ${CONFIGURE_WRKSRC} && ${MAKE} -f LAPACKE/CMakeFiles/lapacke.dir/build.make build-static)
 .else # xlapack + Lapack + tmglib
 	${SED} -e 's|%%LIB%%|lapack|g' ${FILESDIR}/static.mk	\
 		>> ${BUILD_WRKSRC}/SRC/CMakeFiles/lapack.dir/build.make
 	(cd ${CONFIGURE_WRKSRC} && ${MAKE} -f SRC/CMakeFiles/lapack.dir/build.make build-static)
 	${SED} -e 's|%%LIB%%|tmglib|g;s|cd SRC|cd TESTING/MATGEN|;s|SRC/lib|TESTING/MATGEN/lib|'	\
 		${FILESDIR}/static.mk >> ${BUILD_WRKSRC}/TESTING/MATGEN/CMakeFiles/tmglib.dir/build.make
 	(cd ${BUILD_WRKSRC} && ${MAKE} -f TESTING/MATGEN/CMakeFiles/tmglib.dir/build.make build-static)
 .endif
 
 pre-su-install:
 .if !(defined(BLAS_SLAVEPORT) || defined(CBLAS_SLAVEPORT) || defined(XLAPACK_SLAVEPORT) || defined(LAPACKE_SLAVEPORT))
 	cd ${WRKDIR} && ${FIND} man/man3 -type f | ${GREP} -v '/\._' | \
 	tee ${WRKDIR}/manpages | ${SED} 's|^|share/|; s|$$|.gz|' >> ${TMPPLIST}
 	cd ${WRKDIR} && \
 	${XARGS} -J @ ${INSTALL_MAN} @ ${STAGEDIR}${PREFIX}/share/man/man3 < ${WRKDIR}/manpages
 .endif
 
 post-install:
 .if defined(BLAS_SLAVEPORT)
 	${INSTALL_DATA} ${CONFIGURE_WRKSRC}/BLAS/SRC/${BLASLIB} ${STAGEDIR}${PREFIX}/lib
 	${INSTALL_DATA} ${CONFIGURE_WRKSRC}/BLAS/blas.pc ${STAGEDIR}${PREFIX}/libdata/pkgconfig
 .elif defined(CBLAS_SLAVEPORT)
 	# Avoid conflict with OpenBLAS
 	${MKDIR} ${STAGEDIR}${PREFIX}/include/cblas
 	${MV} ${STAGEDIR}${PREFIX}/include/*.h ${STAGEDIR}${PREFIX}/include/cblas/
 	${INSTALL_DATA} ${BUILD_WRKSRC}/src/${CBLASLIB} ${STAGEDIR}${PREFIX}/lib
 .elif defined(LAPACKE_SLAVEPORT)
 	# Avoid conflict with OpenBLAS
 	${MKDIR} ${STAGEDIR}${PREFIX}/include/lapacke
 	${MV} ${STAGEDIR}${PREFIX}/include/*.h ${STAGEDIR}${PREFIX}/include/lapacke/
 	${INSTALL_DATA} ${CONFIGURE_WRKSRC}/LAPACKE/${LAPACKELIB} ${STAGEDIR}${PREFIX}/lib
 .elif defined(XLAPACK_SLAVEPORT)
 	${INSTALL_DATA} ${BUILD_WRKSRC}/SRC/liblapack.a ${STAGEDIR}${PREFIX}/lib/libxlapack.a
 	${INSTALL_DATA} ${BUILD_WRKSRC}/TESTING/MATGEN/libtmglib.a	\
 		${STAGEDIR}${PREFIX}/lib/libxtmglib.a
 	${MV} ${STAGEDIR}${PREFIX}/lib/liblapack.so	\
 		${STAGEDIR}${PREFIX}/lib/libxlapack.so.${PORTVERSION}
 	${LN} -sf libxlapack.so.${PORTVERSION} ${STAGEDIR}${PREFIX}/lib/libxlapack.so
 	${LN} -sf libxlapack.so.${PORTVERSION}	\
 		${STAGEDIR}${PREFIX}/lib/libxlapack.so.${SVERSION}
 	${MV} ${STAGEDIR}${PREFIX}/lib/libtmglib.so	\
 		${STAGEDIR}${PREFIX}/lib/libxtmglib.so.${PORTVERSION}
 	${LN} -sf libxtmglib.so.${PORTVERSION} ${STAGEDIR}${PREFIX}/lib/libxtmglib.so
 	${LN} -sf libxtmglib.so.${PORTVERSION}	\
 		${STAGEDIR}${PREFIX}/lib/libxtmglib.so.${SVERSION}
 	${SED} -e 's|lapack|xlapack|g;s|LAPACK|XLAPACK|'		\
 		${STAGEDIR}${PREFIX}/libdata/pkgconfig/lapack.pc	\
 		> ${STAGEDIR}${PREFIX}/libdata/pkgconfig/xlapack.pc
 	${RM} ${STAGEDIR}${PREFIX}/libdata/pkgconfig/lapack.pc
 .else # Lapack
 	${INSTALL_DATA} ${BUILD_WRKSRC}/SRC/liblapack.a ${STAGEDIR}${PREFIX}/lib
 	${INSTALL_DATA} ${BUILD_WRKSRC}/TESTING/MATGEN/libtmglib.a ${STAGEDIR}${PREFIX}/lib
 .endif
 
 .include <bsd.port.post.mk>
diff --git a/math/lapack/distinfo b/math/lapack/distinfo
index 6d36ccb5ea6b..9505291971a8 100644
--- a/math/lapack/distinfo
+++ b/math/lapack/distinfo
@@ -1,5 +1,5 @@
-TIMESTAMP = 1703076157
-SHA256 (lapack-3.12.0/v3.12.0.tar.gz) = eac9570f8e0ad6f30ce4b963f4f033f0f643e7c3912fc9ee6cd99120675ad48b
-SIZE (lapack-3.12.0/v3.12.0.tar.gz) = 7933607
-SHA256 (lapack-3.12.0/manpages.tgz) = 342db80461de2c0f10848a3f338ee6e7511b417f459600a7e75ad4dc4bf05f5a
-SIZE (lapack-3.12.0/manpages.tgz) = 5396817
+TIMESTAMP = 1737190889
+SHA256 (lapack-3.12.1/v3.12.1.tar.gz) = 2ca6407a001a474d4d4d35f3a61550156050c48016d949f0da0529c0aa052422
+SIZE (lapack-3.12.1/v3.12.1.tar.gz) = 8067087
+SHA256 (lapack-3.12.1/manpages.tgz) = f5991ee1ab5402ba6fa70bed7a292ea3e4507a0cc78f575d9eff72d561597cb8
+SIZE (lapack-3.12.1/manpages.tgz) = 4700814
diff --git a/math/lapack/files/patch-CMakeLists.txt b/math/lapack/files/patch-CMakeLists.txt
deleted file mode 100644
index db50ddd14eee..000000000000
--- a/math/lapack/files/patch-CMakeLists.txt
+++ /dev/null
@@ -1,10 +0,0 @@
---- CMakeLists.txt.orig	2023-11-24 20:41:15 UTC
-+++ CMakeLists.txt
-@@ -223,6 +223,7 @@ if(BLAS_LIBRARIES)
- 
- # Check the usage of the user provided BLAS libraries
- if(BLAS_LIBRARIES)
-+  enable_language(Fortran)
-   include(CheckFortranFunctionExists)
-   set(CMAKE_REQUIRED_LIBRARIES ${BLAS_LIBRARIES})
-   CHECK_FORTRAN_FUNCTION_EXISTS("dgemm" BLAS_FOUND)
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_cgelqs.f b/math/lapack/files/patch-SRC_DEPRECATED_cgelqs.f
new file mode 100644
index 000000000000..1d842f5ddc7e
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_cgelqs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/cgelqs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/cgelqs.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
+ *       COMPLEX            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
+       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f b/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f
new file mode 100644
index 000000000000..512fc7cc5349
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_cgelsx.f
@@ -0,0 +1,13 @@
+--- SRC/DEPRECATED/cgelsx.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/cgelsx.f
+@@ -364,8 +364,8 @@
+ *
+ *     B(1:M,1:NRHS) := Q**H * B(1:M,1:NRHS)
+ *
+-      CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A, LDA,
+-     $             WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
++      CALL CUNM2R( 'Left', 'Conjugate transpose', M, NRHS, MN, A,
++     $              LDA, WORK( 1 ), B, LDB, WORK( 2*MN+1 ), INFO )
+ *
+ *     workspace NRHS
+ *
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_cgeqrs.f b/math/lapack/files/patch-SRC_DEPRECATED_cgeqrs.f
new file mode 100644
index 000000000000..8f68964a6fa3
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_cgeqrs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/cgeqrs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/cgeqrs.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
+ *       COMPLEX            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
+       COMPLEX            A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_dgelqs.f b/math/lapack/files/patch-SRC_DEPRECATED_dgelqs.f
new file mode 100644
index 000000000000..840d365db804
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_dgelqs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/dgelqs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/dgelqs.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
+ *       DOUBLE PRECISION   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
+       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_dgeqpf.f b/math/lapack/files/patch-SRC_DEPRECATED_dgeqpf.f
new file mode 100644
index 000000000000..0677f69762ed
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_dgeqpf.f
@@ -0,0 +1,13 @@
+--- SRC/DEPRECATED/dgeqpf.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/dgeqpf.f
+@@ -218,8 +218,8 @@
+          MA = MIN( ITEMP, M )
+          CALL DGEQR2( M, MA, A, LDA, TAU, WORK, INFO )
+          IF( MA.LT.N ) THEN
+-            CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU,
+-     $                   A( 1, MA+1 ), LDA, WORK, INFO )
++            CALL DORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA,
++     $                    TAU, A( 1, MA+1 ), LDA, WORK, INFO )
+          END IF
+       END IF
+ *
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_dgeqrs.f b/math/lapack/files/patch-SRC_DEPRECATED_dgeqrs.f
new file mode 100644
index 000000000000..f48a6bbcf312
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_dgeqrs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/dgeqrs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/dgeqrs.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
+ *       DOUBLE PRECISION   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
+       DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f b/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f
new file mode 100644
index 000000000000..291efc2ead01
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_dlahrd.f
@@ -0,0 +1,26 @@
+--- SRC/DEPRECATED/dlahrd.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/dlahrd.f
+@@ -231,8 +231,9 @@
+ *
+ *           w := T**T *w
+ *
+-            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1, T, LDT,
+-     $                  T( 1, NB ), 1 )
++* Patch from https://github.com/Reference-LAPACK/lapack/pull/1093
++            CALL DTRMV( 'Upper', 'Transpose', 'Non-unit', I-1,
++     $                  T, LDT, T( 1, NB ), 1 )
+ *
+ *           b2 := b2 - V2*w
+ *
+@@ -270,8 +271,9 @@
+ *        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 )
++* Patch from https://github.com/Reference-LAPACK/lapack/pull/1093
++         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/math/lapack/files/patch-SRC_DEPRECATED_sgelqs.f b/math/lapack/files/patch-SRC_DEPRECATED_sgelqs.f
new file mode 100644
index 000000000000..6f54e915d803
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_sgelqs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/sgelqs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/sgelqs.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( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f b/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f
new file mode 100644
index 000000000000..b8c568852a78
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_sgeqpf.f
@@ -0,0 +1,13 @@
+--- SRC/DEPRECATED/sgeqpf.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/sgeqpf.f
+@@ -218,8 +218,8 @@
+          MA = MIN( ITEMP, M )
+          CALL SGEQR2( M, MA, A, LDA, TAU, WORK, INFO )
+          IF( MA.LT.N ) THEN
+-            CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA, TAU,
+-     $                   A( 1, MA+1 ), LDA, WORK, INFO )
++            CALL SORM2R( 'Left', 'Transpose', M, N-MA, MA, A, LDA,
++     $                    TAU, A( 1, MA+1 ), LDA, WORK, INFO )
+          END IF
+       END IF
+ *
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_sgeqrs.f b/math/lapack/files/patch-SRC_DEPRECATED_sgeqrs.f
new file mode 100644
index 000000000000..8d7017109436
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_sgeqrs.f
@@ -0,0 +1,24 @@
+--- 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( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_zgelqs.f b/math/lapack/files/patch-SRC_DEPRECATED_zgelqs.f
new file mode 100644
index 000000000000..9967747bbeeb
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_zgelqs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/zgelqs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/zgelqs.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
+ *       COMPLEX*16         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
+       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================
diff --git a/math/lapack/files/patch-SRC_DEPRECATED_zgeqrs.f b/math/lapack/files/patch-SRC_DEPRECATED_zgeqrs.f
new file mode 100644
index 000000000000..8bbac0dd3e47
--- /dev/null
+++ b/math/lapack/files/patch-SRC_DEPRECATED_zgeqrs.f
@@ -0,0 +1,24 @@
+--- SRC/DEPRECATED/zgeqrs.f.orig	2024-12-03 11:39:11 UTC
++++ SRC/DEPRECATED/zgeqrs.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
+ *       COMPLEX*16         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
+       COMPLEX*16         A( LDA, * ), B( LDB, * ), TAU( * ),
+-     $                   WORK( LWORK )
++     $                   WORK( * )
+ *     ..
+ *
+ *  =====================================================================