1! { dg-do compile }
2! { dg-options "-Wall -Wno-zerotrip" }
3program main
4  do i=1,0
5    print *,i
6  end do
7end program main
8