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