1! PR middle-end/36726
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5subroutine foo
6  integer, allocatable :: vs(:)
7  !$omp parallel private (vs)
8  allocate (vs(10))
9  vs = 2
10  deallocate (vs)
11  !$omp end parallel
12end subroutine foo
13subroutine bar
14  integer, allocatable :: vs(:)
15  !$omp parallel private (vs)
16  allocate (vs(10))
17  vs = 2
18  deallocate (vs)
19  !$omp end parallel
20end subroutine bar
21