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