diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/import1.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/import1.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/import1.adb b/gcc/testsuite/gnat.dg/import1.adb new file mode 100644 index 000000000..4e4056098 --- /dev/null +++ b/gcc/testsuite/gnat.dg/import1.adb @@ -0,0 +1,17 @@ +-- { 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;
|