12 lines
174 B
Ada
12 lines
174 B
Ada
|
package Array32 is
|
||
|
|
|
||
|
|
type Rec is record
|
||
|
|
I : Integer;
|
||
|
|
end record;
|
||
|
|
|
||
|
|
type Arr is array (Positive range <>) of Rec;
|
||
|
|
|
||
|
|
procedure Init (A : out Arr);
|
||
|
|
|
||
|
|
end Array32;
|