1! { dg-do compile }
2! PR 30869 - pointer loop variables were wrongly rejected.
3program main
4  integer, pointer :: i
5  allocate (i)
6  do i=1,10
7  end do
8  deallocate (i)
9end program main
10