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