From-SVN: r153723
This commit is contained in:
Eric Botcazou 2009-10-29 18:41:44 +00:00
parent ff67c0a549
commit 2d02c187d1

View File

@ -1,4 +1,4 @@
-- { dg- do compile } -- { dg-do compile }
procedure Pack14 is procedure Pack14 is
@ -10,6 +10,7 @@ procedure Pack14 is
pragma Pack (Rec); pragma Pack (Rec);
A : Rec := (F => False); A : Rec := (F => False);
begin begin
null; null;
end; end;