gcc/testsuite/gnat.dg/array13.adb

   1 -- PR ada/38394
   2 -- Reporter: Michael Völske <michael.voelske@medien.uni-weimar.de>
   3
   4 -- { dg-do assemble }
   5
   6 package body Array13 is
   7
   8    procedure Foo is
   9       X, Y : T;
  10    begin
  11       null;
  12    end;
  13
  14 end Array13;