18 lines
301 B
Coq
18 lines
301 B
Coq
|
// Regression test for GitHub issue 19 : Icarus only using the lowest 32
|
||
|
|
// bits of right shift operand (run-time test)
|
||
|
|
|
||
|
|
module bug();
|
||
|
|
|
||
|
|
wire a = 1;
|
||
|
|
wire y = 1 >> {a, 64'b0};
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
#0 $display("%b", y);
|
||
|
|
if (y === 1'b0)
|
||
|
|
$display("PASSED");
|
||
|
|
else
|
||
|
|
$display("FAILED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|