aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gnat.dg/opt29.ads
blob: c809b1c41930d4d7df977c04933f521040ba6a8d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
package Opt29 is

  type Word is mod 2**16;

  type PID is record
    W1, W2: Word;
  end record;

  type Root1 is tagged record
    Id: PID;
  end record;
  type Root1_Ptr is access all Root1'Class;

  type Root2 is tagged null record;
  type Root2_Ptr is access all Root2'class;

  type Derived2 is new Root2 with record
    Id: PID;
  end record;

  type Rec is record
    F1: Root1_Ptr;
    F2: Root2_Ptr;
  end record;

  procedure Proc (T : Rec);

end Opt29;