gcc/testsuite/gnat.dg/prefix1.adb

   1 package body prefix1 is
   2    Counter : Integer := 2;
   3    Table : Arr := (2, 4, 8, 16, 32, 64, 128, 256, 512, 1024);
   4    function Func (Object : T) return Arr is
   5    begin
   6       return Table;
   7    end;
   8 end prefix1;