freepascal.compiler/tests/webtbs/tw9089d.pp

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

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