Ada.Containers.Vectors

[hnptz@yahoo.de]

Here is my code:

with Ada.Containers; use Ada.Containers;
with Ada.Containers.Vectors;
package RGF is
   package IV is new Vectors(Natural,Integer);
   use IV;
procedure GenerateRGF(m : Integer;
                        f : in out Vector);
end RGF;

package body RGF is
   use IV;
procedure GenerateRGF(m : Integer;
                      f : in out Vector) is
      done : Boolean := False;
      fmax : Vector;
      j    : Integer;
   begin
      for i in 1..m loop
         f(i):=1;
         fmax(i) := 2;
      end loop;
      while not done loop
         j := m+1;
         loop
            j := j-1;
            exit when f(j) /= fmax(j);
         end loop;
         if j > 1 then
            f(j) := f(j)+1;
            for i in j+1 .. m loop
               f(i):=1;
               if f(j) = fmax(j) then
                  fmax(i):=fmax(j)+1;
               else
                  fmax(i):=fmax(j);
               end if;
            end loop;
         else
            done := True;
         end if;
      end loop;
   end GenerateRGF;

end RGF;

As a result I get "ambiguous operands for equality" for /= and =. How to resolve these ambiguities?

Best,

Gilbert