with X_With_Clauses_Gen;   -- Regular
with X_With_Clauses_1;     -- Regular, Unnecessary (not necessary for default of instantiation)
with X_With_Clauses_2;     -- Regular, OK (used for <> default of instantiation)
with System;               -- Regular, OK (used in aspect clause)
separate (T_With_Clauses)
procedure Tgen is
   use X_With_Clauses_2;
   package Inst is new X_With_Clauses_Gen (1);

   type T is range 1 .. 10 with Size => 8 * System.Storage_Unit;
begin
   null;
end TGen;
