--- { dg-do compile }\r
--- { dg-options "-g" }\r
-\r
-package body Import1 is\r
-\r
- procedure Create (Bounds : Arr) is\r
- type Bound_Array is array (Bounds'Range) of Integer;\r
-\r
- procedure Proc (Ptr : access Bound_Array);\r
- pragma Import (C, Proc);\r
-\r
- Temp : aliased Bound_Array;\r
- begin\r
- Proc (Temp'Access);\r
- end;\r
-\r
-end Import1;\r
+-- { 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;