gcc/testsuite/gnat.dg/g_tables.adb

   1 --  { dg-options "-gnatws" }
   2
   3 package body G_Tables is
   4    function Create (L : Natural) return Table is
   5    begin
   6       return T : Table (1 .. L);
   7    end Create;
   8 end G_Tables;