mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 13:42:59 +02:00
20 lines
330 B
ObjectPascal
20 lines
330 B
ObjectPascal
{ %fail }
|
|
{ %opt=-Sew }
|
|
|
|
{ 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.
|