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