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