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