Fix typo
From-SVN: r153723
This commit is contained in:
parent
ff67c0a549
commit
2d02c187d1
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user