@@ -56,6 +56,7 @@ generic
-- Returns True if Item is found in Set, False otherwise
package GNAT.Array_Split is
+ pragma Preelaborate;
Index_Error : exception;
-- Raised by all operations below if Index > Field_Count (S)
new file mode 100644
@@ -0,0 +1,5 @@
+-- { dg-do compile }
+
+package body GNAT_Array_Split1 is
+ procedure Dummy is null;
+end GNAT_Array_Split1;
new file mode 100644
@@ -0,0 +1,6 @@
+with GNAT.Array_Split;
+
+package GNAT_Array_Split1 is
+ pragma Preelaborate;
+ procedure Dummy;
+end GNAT_Array_Split1;