blob: 77ba61d4cddbd8361a4d1411b0a6a8cdf6adca53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %fail }
{ %opt=-Sew -vw }
{ Source provided for Free Pascal Bug Report 3643 }
{ Submitted by "Naj Kejah" on 2005-02-08 }
{ e-mail: universario@hotmail.com }
type
recDep = record
cuec, cuek: byte
end;
var
Dep1Rec : recDep;
BEGIN
WITH Dep1Rec DO
begin
if cuek = 4 then ;
if cuek = 4 then ;
end;
END.
|
