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