1! PR middle-end/69183 2! { dg-do compile } 3 4program pr69183 5 integer, allocatable :: z 6 integer :: i 7 !$omp do private(z) 8 do i = 1, 2 9 z = i 10 end do 11end 12