From 447368783aca067d6bbbc057f4528023eb3567bd Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 25 May 2023 13:06:15 +0200
Subject: [PATCH] Add quick return for N < 1 (Reference-LAPACK PR 837)

---
 lapack-netlib/SRC/dlaruv.f | 5 +++++
 lapack-netlib/SRC/slaruv.f | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/lapack-netlib/SRC/dlaruv.f b/lapack-netlib/SRC/dlaruv.f
index 0f5c9541d..1a4ce4009 100644
--- 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 )
diff --git a/lapack-netlib/SRC/slaruv.f b/lapack-netlib/SRC/slaruv.f
index c25dc2e2f..cd37a1c47 100644
--- 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 )