1! PR middle-end/43337
2! { dg-do compile }
3! { dg-options "-fopenmp -O2 -g" }
4
5subroutine pr43337
6  integer :: a, b(10)
7  call foo (b)
8  call bar (b)
9contains
10  subroutine foo (b)
11    integer :: b(10)
12!$omp parallel if (.false.)
13!$omp task if (.false.) shared(b)
14    do a = 1, 10
15      b(a) = 1
16    end do
17!$omp end task
18!$omp end parallel
19  end subroutine foo
20  subroutine bar (b)
21    integer :: b(10)
22!$omp parallel if (.false.)
23!$omp parallel if (.false.)
24    do a = 1, 10
25      b(a) = 1
26    end do
27!$omp end parallel
28!$omp end parallel
29  end subroutine bar
30end subroutine pr43337
31