--  { dg-do compile }

package body GNAT_Array_Split1 is
   procedure Dummy is null;
end GNAT_Array_Split1;