paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed syntax errors

Browse Source 
git-svn-id: trunk@6632 -
This commit is contained in:
Jonas Maebe 2007-02-24 17:28:14 +00:00
parent cc1dfcae7e
commit 50df461337
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/test/uprec7.pp
View File

@ -8,7 +8,8 @@ Type TRecord = packed Record
a, b, c, d, e, f, g, h, i: Boolean a, b, c, d, e, f, g, h, i: Boolean
end; end;
Var ARecord:TRecord = (False, True, True, True, False, True, False, False, True); Var ARecord:TRecord = (a: False; b: True; c: True; d: True; e: False;
f: True; g: False; h: False; i: True);
s: Integer; s: Integer;
Implementation Implementation