! { dg-do run }integer, allocatable ::a(:)logical:: l
l = .false.!$omp parallel firstprivate (a) reduction (.or.:l)
l =allocated(a)allocate(a(10))
l = l .or. .not.allocated(a)
a =10if(any(a .ne.10)) l = .true.deallocate(a)
l = l .or.allocated(a)!$omp end parallelif(l)STOP1end