1! PR fortran/77973
2! { dg-do compile }
3
4subroutine s(x)
5  integer :: x(:)
6  integer :: i
7!$omp parallel
8!$omp target
9  x(1) = 1
10!$omp end target
11!$omp end parallel
12end
13