Added long-missing "loop" directive

jefflarkin · Nov 10, 2020 · 17e9515 · 17e9515
1 parent c3883a3
commit 17e9515
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/saxpy_openacc_f.f90 b/saxpy_openacc_f.f90
@@ -3,7 +3,7 @@ module saxpy_mod
   subroutine saxpy(n, a, x, y)
     integer :: n
     real    :: a, x(:), y(:)
-    !$acc parallel deviceptr(x,y)
+    !$acc parallel loop deviceptr(x,y)
     y(:) = y(:) + a * x(:)
     !$acc end parallel
   end subroutine