Fix test/openacc/dpdegenmv

1 week ago · 4dd9ee9866
parent 89cbc5ef3a
commit 4dd9ee9866
1 changed files with 3 additions and 1 deletions
--- a/test/openacc/dpdegenmv.F90
+++ b/test/openacc/dpdegenmv.F90
@ -583,6 +583,9 @@ program pdgenmv
 #ifdef OPENACC
  type(psb_d_vect_oacc)  :: vmold
  type(psb_i_vect_oacc)  :: imold 
+#else
+  type(psb_d_base_vect_type)  :: vmold
+  type(psb_i_base_vect_type)  :: imold
 #endif
  real(psb_dpk_), allocatable :: x1(:), x2(:), x0(:)
  ! blacs parameters
@ -749,7 +752,6 @@ program pdgenmv
    call psb_amx(ctxt,t2)
    if (j==1) tcnvg1 = t2
    tcnvgpu = tcnvgpu + t2
-#endif
  end do