mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
17 lines
146 B
ObjectPascal
17 lines
146 B
ObjectPascal
{ %opt=-vew -Sew }
|
|
{ %fail }
|
|
|
|
type
|
|
trec = record
|
|
s: set of byte;
|
|
end;
|
|
|
|
function f: trec;
|
|
begin
|
|
if f.s <>[] then ;
|
|
end;
|
|
|
|
begin
|
|
f;
|
|
end.
|