{ %FAIL }

program tfuncref30;

{$modeswitch functionreferences}

type
  reference = record
  end;

var
  somevar: reference;

begin

end.