program doLoop1
  != unit m :: x
  real :: x, y = 0
  integer :: i
  do i=0,x
     y = y + x
  end do

contains
  real function f(x)
    real :: x, y = 0
    integer :: i
    do i=0,x
       y = y + x
    end do
    f = y
  end function f
end program doLoop1