Better ARPACK complex tests (no longer use zero imaginary parts).

dsaupd allocates ipntr of length 11 instead of 14, as per the docs.

base/linalg/arpack.jl

@@ -27,7 +27,11 @@ function aupd_wrapper(T, linop::Function, n::Integer,
     	info   = ones(BlasInt, 1)
     end
     iparam = zeros(BlasInt, 11)
-    ipntr  = zeros(BlasInt, 14)
+    if sym && !cmplx
+        ipntr = zeros(BlasInt, 11)
+    else
+        ipntr = zeros(BlasInt, 14)
+    end
 
     ido    = zeros(BlasInt, 1)
 

test/arpack.jl

@@ -1,9 +1,15 @@
 begin
     local n,a,asym,d,v
     n = 10
-    a = rand(n,n)
+    areal  = randn(n,n)
+    acmplx = complex(randn(n,n), randn(n,n))
 
     for elty in (Float32, Float64, Complex64, Complex128)
+        if elty == Complex64 || elty == Complex128
+            a = acmplx
+        else
+            a = areal
+        end
         a     = convert(Matrix{elty}, a)
         asym  = a' + a                  # symmetric indefinite
         apd   = a'*a                    # symmetric positive-definite