gcc/testsuite/gnat.dg/sso10_pkg.ads

   1 pragma Default_Scalar_Storage_Order (High_Order_First);
   2
   3 package SSO10_Pkg is
   4
   5   type Root is tagged null record;
   6
   7   procedure Run (R : Root) is null;
   8
   9 end SSO10_Pkg;