Merge pull request #4060 from martin-frbg/lapack837

Add quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)
2023-05-25 16:00:25 +02:00
parent 7796068930 447368783a
commit eb1aa6d9cd
2 changed files with 10 additions and 0 deletions
--- a/lapack-netlib/SRC/dlaruv.f
+++ b/lapack-netlib/SRC/dlaruv.f
@@ -382,6 +382,11 @@
     $                   1537 /
 *     ..
 *     .. Executable Statements ..
+*
+*     Quick return for N < 1
+      IF ( N < 1 ) THEN
+         RETURN
+      END IF
 *
      I1 = ISEED( 1 )
      I2 = ISEED( 2 )
--- a/lapack-netlib/SRC/slaruv.f
+++ b/lapack-netlib/SRC/slaruv.f
@@ -382,6 +382,11 @@
     $                   1537 /
 *     ..
 *     .. Executable Statements ..
+*
+*     Quick return for N < 1
+      IF ( N < 1 ) THEN
+         RETURN
+      END IF
 *
      I1 = ISEED( 1 )
      I2 = ISEED( 2 )