begin
  routine zero(integer i)
    ! This is actually a Robertson pass1 bug: if (&i != &0) ...
    ! == should not be allowed against simple integers
    if i==0 start
    finish
  end

  zero(1)

endofprogram