gcc/testsuite/gnat.dg/array13.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14

-- PR ada/38394
-- Reporter: Michael V�lske <michael.voelske@medien.uni-weimar.de>

-- { dg-do assemble }

package body Array13 is

   procedure Foo is
      X, Y : T;
   begin
      null;
   end;

end Array13;