Retro68/gcc/gcc/testsuite/gnat.dg/varsize3_2.adb

12 lines
143 B
Ada
Raw Normal View History

2017-04-10 11:32:00 +00:00
-- { dg-do compile }
with Varsize3_Pkg1; use Varsize3_Pkg1;
procedure Varsize3_2 is
Filter : constant Object := True;
begin
null;
end;