14 lines
222 B
Ada
14 lines
222 B
Ada
|
package Opt99_Pkg2 is
|
||
|
|
|
||
|
|
function Get_Max return Positive is (4);
|
||
|
|
|
||
|
|
C : constant Positive := Get_Max;
|
||
|
|
|
||
|
|
type Arr is array (1 .. C) of Integer;
|
||
|
|
|
||
|
|
type Root is tagged record
|
||
|
|
Data : Arr;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
end Opt99_Pkg2;
|