31 lines
535 B
Coq
31 lines
535 B
Coq
|
module top;
|
||
|
|
reg passed;
|
||
|
|
reg a[];
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
passed = 1'b1;
|
||
|
|
|
||
|
|
a = new[3];
|
||
|
|
|
||
|
|
a[0] = 1'b0;
|
||
|
|
a[1] = 1'b1;
|
||
|
|
|
||
|
|
if (a[0] !== 1'b0) begin
|
||
|
|
$display("Failed a[0], expected 1'b0, got %b", a[0]);
|
||
|
|
passed = 1'b0;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (a[1] !== 1'b1) begin
|
||
|
|
$display("Failed a[1], expected 1'b1, got %b", a[1]);
|
||
|
|
passed = 1'b0;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (a[2] !== 1'bx) begin
|
||
|
|
$display("Failed a[2], expected 1'bx, got %b", a[2]);
|
||
|
|
passed = 1'b0;
|
||
|
|
end
|
||
|
|
|
||
|
|
if (passed) $display("PASSED");
|
||
|
|
end
|
||
|
|
endmodule
|