! PR fortran/77973 ! { dg-do compile } subroutine s(x) integer :: x(:) integer :: i !$omp parallel !$omp target x(1) = 1 !$omp end target !$omp end parallel end