18 lines
340 B
Ada
18 lines
340 B
Ada
-- { dg-do compile }
|
|
-- { dg-options "-g" }
|
|
|
|
package body Import1 is
|
|
|
|
procedure Create (Bounds : Arr) is
|
|
type Bound_Array is array (Bounds'Range) of Integer;
|
|
|
|
procedure Proc (Ptr : access Bound_Array);
|
|
pragma Import (C, Proc);
|
|
|
|
Temp : aliased Bound_Array;
|
|
begin
|
|
Proc (Temp'Access);
|
|
end;
|
|
|
|
end Import1;
|