testsuite: Add dg-do run to even more tests

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / pr77973.f90

! 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