Also add for w.

Author: BioTurboNick

src/lapack.jl

@@ -4090,8 +4090,9 @@ for (stev, stebz, stegr, stein, elty) in
                     resize!(iwork, liwork)
                 end
             end
+            wm = min(n, m[])
             Zm = min(Zn, m[])
-            resize!(w, m[]), reshape(resize!(Z, ldz * Zm), ldz, Zm)
+            resize!(w, wm), reshape(resize!(Z, ldz * Zm), ldz, Zm)
         end
 
         function stein!(dv::AbstractVector{$elty}, ev_in::AbstractVector{$elty}, w_in::AbstractVector{$elty}, iblock_in::AbstractVector{BlasInt}, isplit_in::AbstractVector{BlasInt})