40 lines
678 B
Coq
40 lines
678 B
Coq
|
`timescale 1us/100ns
|
||
|
|
|
||
|
|
module top;
|
||
|
|
reg pass = 1'b1;
|
||
|
|
real in1, in2;
|
||
|
|
wire real mult;
|
||
|
|
|
||
|
|
/* A simple multiplier. */
|
||
|
|
assign #0.2 mult = in1*in2;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
#1;
|
||
|
|
in1 = 1.0;
|
||
|
|
in2 = 2.0;
|
||
|
|
#1;
|
||
|
|
if (mult != 2.0) begin
|
||
|
|
$display("FAILED (1): expected 2.0 got %g", mult);
|
||
|
|
pass = 0;
|
||
|
|
end
|
||
|
|
#1;
|
||
|
|
in1 = 2.0;
|
||
|
|
in2 = 1.0;
|
||
|
|
#1;
|
||
|
|
if (mult != 2.0) begin
|
||
|
|
$display("FAILED (2): expected 2.0 got %g", mult);
|
||
|
|
pass = 0;
|
||
|
|
end
|
||
|
|
#1;
|
||
|
|
in1 = 1.0;
|
||
|
|
in2 = 2.0;
|
||
|
|
#1;
|
||
|
|
if (mult != 2.0) begin
|
||
|
|
$display("FAILED (3): expected 2.0 got %g", mult);
|
||
|
|
pass = 0;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (pass) $display("PASSED");
|
||
|
|
end
|
||
|
|
endmodule
|