blob: 6c5b4d84e8cb7047c0d5fb027d66edbee8eef770 [file] [log] [blame]
! 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