| ! { dg-do compile } | |
| ! { dg-require-effective-target offload_hsa } | |
| ! { dg-options "-fopenmp -fdump-tree-omplower-details" } */ | |
| subroutine vector_square(n, a, b) | |
| integer i, n, b(n), a(n) | |
| !$omp target teams | |
| !$omp distribute parallel do | |
| do i=1,n | |
| b(i) = a(i) * a(i) | |
| enddo | |
| !$omp end distribute parallel do | |
| !$omp end target teams | |
| end subroutine vector_square | |
| ! { dg-final { scan-tree-dump "Target construct will be turned into a gridified HSA kernel" "omplower" } } |