fix parallel vector too

LLNL · Apr 25, 2024 · 179e512 · 179e512
1 parent 60697cf
commit 179e512
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/examples/nvector/parallel/test_fnvector_parallel_mod.f90 b/examples/nvector/parallel/test_fnvector_parallel_mod.f90
@@ -160,15 +160,15 @@ integer(C_INT) function check_ans(ans, X, local_length) result(failure)
   use test_utilities
   implicit none
 
-  real(C_DOUBLE)          :: ans
-  type(N_Vector)          :: X
-  integer(C_LONG)         :: local_length, i
-  real(C_DOUBLE), pointer :: Xdata(:)
+  real(C_DOUBLE)            :: ans
+  type(N_Vector)            :: X
+  integer(kind=myindextype) :: local_length, i
+  real(C_DOUBLE), pointer   :: Xdata(:)
 
   failure = 0
 
   Xdata => FN_VGetArrayPointer(X)
-  do i = 1, local_length
+   do i = 1, local_length
     if (FNEQ(Xdata(i), ans) > 0) then
       failure = failure + 1
     end if