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

  zero(1)

%endofprogram