blob: 31bab1116dcd40706a0240a769eeec9e2f597559 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- { dg-do compile }
-- { dg-options "-O" }
with Sizetype3_Pkg; use Sizetype3_Pkg;
package body Sizetype3 is
procedure Handle_Enum_Values is
Values : constant List := F;
L : Values_Array_Access;
begin
L := new Values_Array (1 .. Values'Length);
end Handle_Enum_Values;
procedure Simplify_Type_Of is
begin
Handle_Enum_Values;
end Simplify_Type_Of;
end Sizetype3;
|