gcc/testsuite/gnat.dg/warn6.ads

   1 package Warn6 is
   2
   3   package Q is
   4     type T is private; -- this is the trigger
   5   private
   6     type T is access Integer;
   7     pragma No_Strict_Aliasing (T);
   8
   9   end Q;
  10
  11   subtype Q_T is Q.T;
  12
  13   procedure Dummy;
  14
  15 end Warn6;