freepascal.compiler/tests/webtbs/tw6822c.pp

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos,aix,android,haiku }
uses
  SysUtils;

var
  t: text;
begin
  { see uw6822a.pp }
  assign(t,'uw6822a.txt');
{$i-}
  reset(t);
{$i+}
  if ioresult<>0 then
    halt(1);
  close(t);
  erase(t);
end.