fpcsrc/tests/webtbs/tw9089d.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
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.