verilator/test_regress/t/t_class_virtual.v

// DESCRIPTION: Verilator: Verilog Test module
//
// This file ONLY is placed under the Creative Commons Public Domain, for
// any use, without warranty, 2019 by Wilson Snyder.
// SPDX-License-Identifier: CC0-1.0

virtual class VBase;
   virtual function int hello;
      return 1;
   endfunction
   virtual class VNested;
      virtual function int hello;
         return 10;
      endfunction
   endclass
endclass

class VA extends VBase;
   virtual function int hello;
      return 2;
   endfunction
   class VNested extends VBase::VNested;
      virtual function int hello;
         return 20;
      endfunction
   endclass
endclass

class VB extends VBase;
   virtual function int hello;
      return 3;
   endfunction
   class VNested extends VBase::VNested;
      virtual function int hello;
         return 30;
      endfunction
   endclass
endclass

virtual class uvm_phase;
   virtual function int exec_func;
      return 0;
   endfunction
endclass

class uvm_topdown_phase extends uvm_phase;
   function int get1;
      return exec_func();
   endfunction
endclass

class uvm_build_phase extends uvm_topdown_phase;
   virtual function int exec_func;
      return 1;
   endfunction
endclass

virtual class Cls;
   uvm_phase ph;
endclass

class ExtendsCls extends Cls;
   function new;
      uvm_build_phase bp = new;
      ph = bp;
   endfunction

   function int get1;
      return super.ph.exec_func();
   endfunction
endclass

module t;
   initial begin
      VA va = new;
      VB vb = new;
      VA::VNested vna = new;
      VB::VNested vnb = new;
      VBase b;
      VBase::VNested bn;

      uvm_build_phase ph;
      ExtendsCls ec;

      if (va.hello() != 2) $stop;
      if (vb.hello() != 3) $stop;
      if (vna.hello() != 20) $stop;
      if (vnb.hello() != 30) $stop;

      b = va;
      bn = vna;
      if (b.hello() != 2) $stop;
      if (bn.hello() != 20) $stop;
      b = vb;
      bn = vnb;
      if (b.hello() != 3) $stop;
      if (bn.hello() != 30) $stop;

      ph = new;
      if (ph.get1() != 1) $stop;

      ec = new;
      if (ec.get1() != 1) $stop;

      $write("*-* All Finished *-*\n");
      $finish;
   end
endmodule