diff --git a/PARPACK/TESTS/MPI/issue46.f b/PARPACK/TESTS/MPI/issue46.f
index 7d75229..7a6f701 100644
--- a/PARPACK/TESTS/MPI/issue46.f
+++ b/PARPACK/TESTS/MPI/issue46.f
@@ -255,7 +255,7 @@ c        %-------------------------------------------%
 c
          rvec = .true.
 c
-         call pdseupd ( comm, rvec, 'All', select,
+         call pdseupd ( comm, rvec, 'A', select,
      &        d, v, ldv, sigma,
      &        bmat, nloc, which, nev, tol, resid, ncv, v, ldv,
      &        iparam, ipntr, workd, workl, lworkl, ierr )