{ %opt=-vw -Sew } { %fail } function f: ansistring; begin if f <> '' then; end; begin f; end.