fpc/tests/webtbs/tw9089d.pp
2016-08-14 14:09:24 +00:00

19 lines
274 B
ObjectPascal

{ %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.