gcc/testsuite/gnat.dg/import1.adb

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