! { dg-do run }

  integer :: x(2, 3)
  integer, allocatable :: z(:, :)
  allocate (z(-2:3, 2:4))
  call foo (x, z)
contains
  subroutine foo (x, z)
    integer :: x(:, :), y
    integer, allocatable :: z(:, :)
    y = 1
    !$omp parallel shared (x, y, z)
      !$omp single
        !$omp taskgroup
          !$omp task depend(in: x)
  	  if (y.ne.1) stop 1
          !$omp end task
          !$omp task depend(out: x(1:2, 1:3))
  	  y = 2
          !$omp end task
        !$omp end taskgroup
        !$omp taskgroup
          !$omp task depend(in: z)
  	  if (y.ne.2) stop 2
          !$omp end task
          !$omp task depend(out: z(-2:3, 2:4))
  	  y = 3
          !$omp end task
        !$omp end taskgroup
        !$omp taskgroup
          !$omp task depend(in: x)
  	  if (y.ne.3) stop 3
          !$omp end task
          !$omp task depend(out: x(1:, 1:))
  	  y = 4
          !$omp end task
        !$omp end taskgroup
      !$omp end single
    !$omp end parallel
    if (y.ne.4) stop 4
  end subroutine
end