1-- { dg-do compile }
2-- { dg-options "-g" }
3
4package body Import1 is
5
6   procedure Create (Bounds : Arr) is
7      type Bound_Array is array (Bounds'Range) of Integer;
8
9      procedure Proc (Ptr : access Bound_Array);
10      pragma Import (C, Proc);
11
12      Temp : aliased Bound_Array;
13   begin
14      Proc (Temp'Access);
15   end;
16
17end Import1;
18