begin
  routine zero(integer i)
    ! Bug: %end generates a "return(0)" instead of "return"
  end

  zero(1)

endofprogram