[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / goacc / kernels-loop-inner.f95

! { dg-additional-options "-O2" }

program main
   implicit none

   integer :: a(100,100), b(100,100)
   integer :: i, j, d

   !$acc kernels
   do i=1,100
     do j=1,100
       a(i,j) = 1
       b(i,j) = 2
       a(i,j) = a(i,j) + b(i,j)
     end do
   end do
   !$acc end kernels

   d = sum(a)

   print *,d
end program main
Commit	Line	Data
7a5e4956	1	! { dg-additional-options "-O2" }
7a5e4956 CP	2
	3	program main
	4	implicit none
	5
	6	integer :: a(100,100), b(100,100)
	7	integer :: i, j, d
	8
	9	!$acc kernels
	10	do i=1,100
	11	do j=1,100
	12	a(i,j) = 1
	13	b(i,j) = 2
	14	a(i,j) = a(i,j) + b(i,j)
	15	end do
	16	end do
	17	!$acc end kernels
	18
	19	d = sum(a)
	20
	21	print *,d
	22	end program main