gcc/testsuite/gfortran.dg/goacc/kernels-loops-adjacent.f95

   1 ! { dg-additional-options "-O2" }
   2 ! { dg-additional-options "-ftree-parallelize-loops=10" }
   3
   4 program main
   5    implicit none
   6
   7    integer :: a(10000), b(10000)
   8    integer :: d
   9
  10    !$acc kernels
  11    a = 1
  12    b = 2
  13    a = a + b
  14    !$acc end kernels
  15
  16    d = sum(a)
  17
  18    print *,d
  19 end program main