PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gnat.dg / discr35.ads
blob7cde6cd66c7e8770ed987b578a238dea759b65d2
1 package Discr35 is
3 type Rec1 is tagged null record;
5 type Enum is (One, Two);
7 type Rec2 (D : Enum := One) is
8 record
9 case D is
10 when One => null;
11 when Two => R : Rec1;
12 end case;
13 end record;
15 Null_Rec2 : Constant Rec2;
17 procedure Proc1;
19 procedure Proc2;
21 private
23 Null_Rec2 : Constant Rec2 := (D => One);
25 end Discr35;