74 lines
1.2 KiB
Systemverilog
74 lines
1.2 KiB
Systemverilog
// DESCRIPTION: Verilator: Verilog Test module
|
|
//
|
|
// This file ONLY is placed into the Public Domain, for any use,
|
|
// without warranty.
|
|
// SPDX-License-Identifier: CC0-1.0
|
|
|
|
// interface modport + task import - write interface signal in same always_comb
|
|
|
|
// verilog_format: off
|
|
`define stop $stop
|
|
`define checkd(gotv,expv) do if ((gotv) !== (expv)) begin $write("%%Error: %s:%0d: got=%0d exp=%0d (%s !== %s)\n", `__FILE__,`__LINE__, (gotv), (expv), `"gotv`", `"expv`"); `stop; end while(0);
|
|
// verilog_format: on
|
|
|
|
interface my_if;
|
|
logic l0;
|
|
|
|
task set_l0_1(); l0 = 1'b1; endtask
|
|
|
|
modport mp (
|
|
output l0,
|
|
import set_l0_1
|
|
);
|
|
endinterface
|
|
|
|
module mod #()(
|
|
input logic sel
|
|
,output logic val
|
|
,my_if.mp ifp
|
|
);
|
|
|
|
always_comb begin
|
|
ifp.l0 = 1'b0;
|
|
|
|
if (sel) begin
|
|
ifp.set_l0_1();
|
|
end
|
|
end
|
|
|
|
assign val = ifp.l0;
|
|
|
|
endmodule
|
|
|
|
module m_tb#()();
|
|
|
|
logic sel, val;
|
|
my_if if0();
|
|
|
|
mod m(
|
|
.sel(sel)
|
|
,.val(val)
|
|
,.ifp(if0)
|
|
);
|
|
|
|
initial begin
|
|
#1;
|
|
sel = 'b0;
|
|
`checkd(val, 1'b0);
|
|
#1;
|
|
sel = 'b1;
|
|
`checkd(val, 1'b1);
|
|
#1;
|
|
sel = 'b0;
|
|
`checkd(val, 1'b0);
|
|
#1;
|
|
end
|
|
|
|
initial begin
|
|
#5;
|
|
$write("*-* All Finished *-*\n");
|
|
$finish;
|
|
end
|
|
|
|
endmodule
|