Add quick return for N < 1 (Reference-LAPACK PR 837)

2023-05-25 13:06:15 +02:00 · 2023-05-25 13:06:15 +02:00 · 447368783a
parent 7796068930
commit 447368783a
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 )