fix minor (bug?) where real and complex diverged

83d721f5 · Pavel Kus · 6a935004 · 83d721f5
Commit 83d721f5 authored Oct 24, 2017 by Pavel Kus
--- a/test/shared/test_check_correctness_template.F90
+++ b/test/shared/test_check_correctness_template.F90
@@ -121,9 +121,9 @@
 #else /* WITH_MPI */

 #ifdef DOUBLE_PRECISION_COMPLEX
-        call zscal(na,xc,tmp2(1,i),1)
+        call zscal(na,xc,tmp2(:,i),1)
 #else
-        call cscal(na,xc,tmp2(1,i),1)
+        call cscal(na,xc,tmp2(:,i),1)
 #endif

 #endif /* WITH_MPI */