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

`timescale 1ns/1ps
module t (/*AUTOARG*/
   // Inputs
   clk
   );
   input clk;

   integer cyc = 0;

   time    in;
   // verilator lint_off REALCVT
   initial in = 5432109876.543210ns;  // Will round to time units
   // verilator lint_on REALCVT

   // This shows time changes when passed between modules with different units
   // See also discussion in uvm_tlm2_time.svh

   ps ps (.*);
   ns ns (.*);

   always @ (posedge clk) begin
      cyc <= cyc + 1;
      if (cyc == 60) begin
         $write("*-* All Finished *-*\n");
         $finish;
      end
   end
endmodule

`timescale 1ps/1ps

module ps
  (input clk,
   input integer cyc,
   input time in);

   always @ (posedge clk) begin
      if (cyc == 10) begin
         $timeformat(-9, 6, "ns", 16);
         $write("%m: Input time %t %d\n", in, in);
      end
   end
endmodule

`timescale 1ns/1ps

module ns
  (input clk,
   input integer cyc,
   input time in);

   always @ (posedge clk) begin
      if (cyc == 20) begin
         $timeformat(-9, 6, "ns", 16);
         $write("%m: Input time %t %d\n", in, in);
      end
   end
endmodule