1! PR tree-optimization/48794 2! { dg-do compile } 3! { dg-options "-Os -fopenmp -fexceptions -fno-tree-ccp -fno-tree-copy-prop" } 4 5 integer, allocatable :: a(:) 6 logical :: l 7 if (allocated (a)) STOP 1 8!$omp parallel private (a) reduction (.or.:l) 9 do i = 1, 7 10 end do 11!$omp end parallel 12end 13