--with B000001m;
with B000002m;
--with B000003m;
--with B000004m;
with Rational_Io;
procedure Tracker is
begin
    --B000001m;
    Rational_Io.Put_Line
       (Item => "B000001 did not compile - unsupported Integer model numbers");
    B000002m;
    Rational_Io.Put_Line
       (Item =>
           "B000002 - replaced unsupported Suppress_All with each Suppress");
    --B000003m;
    Rational_Io.Put_Line
       (Item =>
           "B000003 - replaced unsupported Suppress_All with each Suppress");
    Rational_Io.Put_Line (Item =>
                             "B000003 - did not compile; aborted in back end");
    --B000004m;
    Rational_Io.Put_Line
       (Item => "B000004 did not compile - unsupported Integer model numbers");
end Tracker;