summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/array13.adb
blob: 245d40af245cd51da6bb7bda33a9798f7bbc24d0 (plain)
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;