Fix workspace query corner cases to always return at least 1 (Reference-LAPACK PR 883) (#4146)

* Fix workspace query corner cases to always return at least 1
2023-07-15 16:37:42 +02:00
parent 4c43d1eeba
commit 0a637cc403
12 changed files with 14 additions and 14 deletions
--- a/lapack-netlib/SRC/csytrf.f
+++ b/lapack-netlib/SRC/csytrf.f
@@ -232,7 +232,7 @@
 *        Determine the block size
 *
         NB = ILAENV( 1, 'CSYTRF', UPLO, N, -1, -1, -1 )
-         LWKOPT = N*NB
+         LWKOPT = MAX( 1, N*NB )
         WORK( 1 ) = LWKOPT
      END IF
 *