gcc/gcc/testsuite/gfortran.dg/gomp/pr80918.f90

11 lines
188 B
Fortran

! PR fortran/80918
! { dg-do compile }
subroutine foo (a)
integer :: a(*)
!$omp task depend(inout:a)
!$omp end task
!$omp task depend(inout:a)
!$omp end task
end subroutine foo