conc_cast_p_then_null_c_then_use_casted_p

class Parent ;
virtual task disp ();
    $display(" This is class Parent ");
  endtask
endclass

class Child extends Parent ;
  task disp ();
    $display(" This is class Child ");
  endtask
endclass

program main ;
  Parent P;
  Child C;

  initial
    begin
      C = new();
      P=C;
      C = null;
      P.disp();
    end
endprogram

//##run results: DEBUG: MASTER
/*
ncsim> run
 This is class Child 
Simulation complete via implicit call to $finish(1) at time 0 FS + 1
./conc_cast_then_null_then_use_casted.sv:13 program main ; 
ncsim> exit
*/