%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