git-svn-id: trunk@39918 -
@@ -12,6 +12,7 @@ begin
if b<>123 then
halt(1);
close(f);
+ erase(f);
writeln('ok');
end.
@@ -11,6 +11,7 @@ begin
if s<>'FPC' then