anchor.diff:                        output_: PDouble);
   var
     i,j: LongInt;
  +  x: Double;
  +  y: PDouble;
   begin
   {$IFDEF ZERO_LOOP}
       for i:=0 to a_len + b_len-1 do
  
positive.code: {$ENDIF}
  
      for i:=0 to a_len-1 do
          for j:=0 to b_len-1 do
              output_[i+j]:=output_[i+j] + (input_a[i] * input_b[j]);
  end;
  
  procedure test;
  
negative.code:   input_a: array[0..4999] of Double;
    input_b: array[0..4999] of Double;
    output_: array[0..length(input_a) + length(input_b) - 1] of Double;
    start, diff: Int64;
    i: LongInt;
  begin
      for i:=0 to 4999 do
  