summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/pack14.adb
blob: b3764316b2cbe887ee5382efa2333481a1238752 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
-- { dg-do compile }

procedure Pack14 is

   subtype False_T is Boolean range False .. False;

   type Rec is record
      F : False_T;
   end record;
   pragma Pack (Rec);

   A : Rec := (F => False);

begin
   null;
end;