summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/aggr9_pkg.ads
blob: c7c7b9e10b8a292994f3e5d7fb9452ef46388b7b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
package Aggr9_Pkg is

  type Byte is range 0 .. 255;

  type R1 is
    record
      A,B : Byte;                    
    end record;

  type R2 is
    record
      F : R1;
    end record;

  procedure Send (M : R2);

end Aggr9_Pkg;