1! { dg-do compile }
2! { dg-require-effective-target offload_hsa }
3! { dg-options "-fopenmp -fdump-tree-omplower-details" } */
4
5subroutine vector_square(n, a, b)
6      integer i, n, b(n), a(n)
7!$omp target teams
8!$omp distribute parallel do
9      do i=1,n
10          b(i) = a(i) * a(i)
11      enddo
12!$omp end distribute parallel do
13!$omp end target teams
14end subroutine vector_square
15
16! { dg-final { scan-tree-dump "Target construct will be turned into a gridified HSA kernel" "omplower" } }
17