diff --git a/SRC/slarrv.f b/SRC/slarrv.f
index 9d72b339a9..053df82a90 100644
--- a/SRC/slarrv.f
+++ b/SRC/slarrv.f
@@ -395,6 +395,13 @@ SUBROUTINE SLARRV( N, VL, VU, D, L, PIVMIN,
       CALL SLASET( 'Full', N, ZUSEDW, ZERO, ZERO,
      $                    Z(1,ZUSEDL), LDZ )
 
+*
+*     Early exit if we have not eigenvalues
+*
+      IF( M.LE.0 ) THEN
+         RETURN
+      END IF
+
       EPS = SLAMCH( 'Precision' )
       RQTOL = TWO * EPS
 *