gcc/testsuite/gnat.dg/import1.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-g" }
   3
   4 package 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
  17 end Import1;