Fix typo
From-SVN: r153723
This commit is contained in:
parent
ff67c0a549
commit
2d02c187d1
1 changed files with 2 additions and 1 deletions
|
@ -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…
Add table
Reference in a new issue