// DESCRIPTION: Verilator: Verilog Test module
//
// This file ONLY is placed under the Creative Commons Public Domain.
// SPDX-FileCopyrightText: 2020 Wilson Snyder
// SPDX-License-Identifier: CC0-1.0

class Base0;
  class BaseInnerOnly;
    int inneronly;
    function new();
      inneronly = 10;
      if (inneronly != 10) $stop;
    endfunction
  endclass

  class BaseInnerOver;
    int innerover;
    function new();
      innerover = 10;
      if (innerover != 10) $stop;
    endfunction
  endclass

  int baseonly;
  int baseover;
  BaseInnerOnly inneronly = new;
  BaseInnerOver innerover = new;

  // verilog_format: off
  function void b_set_bo(int v); baseover = v; endfunction
  function int b_get_bo(); return baseover; endfunction
  function int get_bo(); return baseover; endfunction
  function void b_set_io(int v); innerover.innerover = v; endfunction
  function int b_get_io(); return innerover.innerover; endfunction
  function int get_io(); return innerover.innerover; endfunction
  // verilog_format: on
endclass

class Ext extends Base0;
  class BaseInnerOver;
    int innerover;
    function new();
      innerover = 20;
      if (innerover != 20) $stop;
    endfunction
  endclass

  int baseover;
  int extonly;
  BaseInnerOnly inneronly = new;
  BaseInnerOver innerover = new;

  // verilog_format: off
  function void e_set_bo(int v); baseover = v; endfunction
  function int e_get_bo(); return baseover; endfunction
  function int get_bo(); return baseover; endfunction
  function void e_set_io(int v); innerover.innerover = v; endfunction
  function int e_get_io(); return innerover.innerover; endfunction
  function int get_io(); return innerover.innerover; endfunction
  // verilog_format: on
endclass

module t;
  initial begin
    Ext c;
    c = new;
    c.baseonly = 10;
    c.baseover = 20;
    c.extonly = 30;
    c.inneronly.inneronly = 40;
    c.innerover.innerover = 50;
    if (c.baseonly != 10) $stop;
    if (c.baseover != 20) $stop;
    if (c.extonly != 30) $stop;
    if (c.inneronly.inneronly != 40) $stop;
    if (c.innerover.innerover != 50) $stop;

    c.b_set_bo(100);
    c.e_set_bo(200);
    c.b_set_io(300);
    c.e_set_io(400);
    if (c.b_get_bo() != 100) $stop;
    if (c.e_get_bo() != 200) $stop;
    if (c.get_bo() != 200) $stop;
    if (c.b_get_io() != 300) $stop;
    if (c.e_get_io() != 400) $stop;
    if (c.get_io() != 400) $stop;

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