[fpc-pascal]Free Instance

[Luis Del Aguila]

I don't Understand, I compile this code with FPC 1.06 for Windows and the
directive compiler -S2 -Rintel.
is it a bug?.

 Thanks


 Type
   TClase1 = Class
     campo1:string;
   End;
   TClase2 = Class (TClase1)
     campo2:string;
   End;

 Var b:Tclase2;
 Begin
   b:=TClase2.create;
   b.campo1:='hola';
   b.campo2:='hola2';
   Writeln(b.campo2);
   b.free;                          //if free the instance .
   Writeln(b.campo2);     // Why the instance exist?
   Write('presione enter para terminar');readln
 End.