* Erase the temp file.

git-svn-id: trunk@39868 -

tests/webtbs/tw32938.pp

@@ -30,6 +30,8 @@ begin
    if b<>10 then
      halt(1);
    write;
+   close(f);
+   erase(f);
    writeln('ok');
 end.