PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gnat.dg / lto20_pkg.ads
blob6ece15f59679ee25396c74d9d3f906d999a2c784
1 package Lto20_Pkg is
3 type Arr is private;
5 Null_Arr : constant Arr;
7 procedure Proc (A : Arr);
9 private
11 type Obj;
13 type Handle is access Obj;
15 Null_Handle : constant Handle := null;
17 type Arr is array (1 .. 2) of Handle;
19 Null_Arr : constant Arr := (others => Null_Handle);
21 end Lto20_Pkg;