1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{ %opt=-vew -Sew } { %fail } type trec = record s: set of byte; end; function f: trec; begin if f.s <>[] then ; end; begin f; end.