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