| ! { dg-additional-options "-O2" } | |
| ! { dg-additional-options "-fopt-info-optimized-omp" } | |
| program main | |
| implicit none | |
| integer :: a(100,100), b(100,100) | |
| integer :: i, j, d | |
| !$acc kernels ! { dg-message "optimized: assigned OpenACC seq loop parallelism" } | |
| 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 |