gcc/testsuite/gnat.dg/sso9_pkg.ads

   1 with System;
   2
   3 package SSO9_Pkg is
   4
   5    type Rec (D : Boolean := False) is record
   6       B : Boolean;
   7    end record;
   8
   9    for Rec'Bit_Order use System.High_Order_First;
  10    for Rec'Scalar_Storage_Order use System.High_Order_First;
  11
  12    type Arr is array (1 .. 16) of Rec;
  13
  14    procedure Proc (A : Arr);
  15
  16 end SSO9_Pkg;