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 integer :: b(48) 7 logical :: l 8 if (allocated (a)) then 9 STOP 1 10 call bla(b) 11 end if 12!$omp parallel private (a) reduction (.or.:l) 13 do i = 1, 7 14 end do 15!$omp end parallel 16end 17