fpc/tests/tbs/tb0365.pp

var
   t : textfile;

begin
   assign(t,'test');
end.