paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

#1850 bug report test

Browse Source
This commit is contained in:
carl 2002-03-07 17:34:34 +00:00
parent 1f2801b1ab
commit de0d0678f5
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/webtbs/tw1850.pp Normal file
View File

@ -0,0 +1,12 @@
{ Source provided for Free Pascal Bug Report 1850 }
{ Submitted by "Sebastian Günther" on 2002-03-06 }
{ e-mail: sg@freepascal.org }
type
TMyRecord = record
a, b: Integer;
end;
var
r: TMyRecord;
begin
with r do;
end.