* tiny change: nil i1,i2 by hand so that everything is freed before the "ok".

git-svn-id: trunk@15082 -

tests/test/timplements7.pp

@@ -37,6 +37,8 @@ begin
   o1.fi:=nil;
 
   o1.free;
+  i1 := nil;
+  i2 := nil;
 
   writeln('ok');
 end.