freepascal.compiler/tests/webtbs/tw1414.pp

uses
  dos;
 var
   i : longint;
begin
{$i-}
  chdir('');
  i:=ioresult;
  if i<>0 then
    begin
      Writeln('chdir('''') fails wih error ',i);
      Halt(i);
    end;
end.