File: t_order_dpi_export_7.v

package info (click to toggle)
verilator 5.038-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 162,552 kB
  • sloc: cpp: 139,204; python: 20,931; ansic: 10,222; yacc: 6,000; lex: 1,925; makefile: 1,260; sh: 494; perl: 282; fortran: 22
file content (39 lines) | stat: -rw-r--r-- 1,064 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
// DESCRIPTION: Verilator: Verilog Test module
//
// Copyright 2022 by Geza Lore. This program is free software; you can
// redistribute it and/or modify it under the terms of either the GNU
// Lesser General Public License Version 3 or the Perl Artistic License
// Version 2.0.
// SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0

module testbench;

   logic clk;
   logic data;

   export "DPI-C" function set_inputs;
   function void set_inputs(bit val);
      clk = val;
      data = val;
   endfunction;

   // This needs to be in the 'ico' region. Written with $c1 to prevent
   // gate optimization.
   wire invdata = $c1(1) ^ data;

   int   n = 0;

   always @(edge clk) begin
      // The combinational update needs to have take effect (in the 'ico'
      // region), before this always block is executed
      if (invdata != ~data) $stop;
      $display("t=%t n=%d", $time, n);
      if ($time != (1*n+1) * 500) $stop;
      if (n == 20) begin
         $write("*-* All Finished *-*\n");
         $finish;
      end
      n += 1;
   end

endmodule