40 lines
826 B
Verilog
40 lines
826 B
Verilog
// Check that continuous assignments to unpacked arrays preserve drive strength.
|
|
|
|
module test;
|
|
|
|
reg failed;
|
|
reg [8*3-1:0] s;
|
|
|
|
wire driven[0:1];
|
|
wire resolved[0:1];
|
|
|
|
assign (weak1, weak0) driven = '{1'b1, 1'b0};
|
|
assign resolved[0] = 1'b0;
|
|
assign resolved[1] = 1'b1;
|
|
assign (weak1, weak0) resolved = '{1'b1, 1'b0};
|
|
|
|
`define check_str(val, exp) begin \
|
|
$swrite(s, "%v", val); \
|
|
if (s != exp) begin \
|
|
$display("FAILED(%0d). '%s' expected %s, got %s", `__LINE__, \
|
|
`"val`", exp, s); \
|
|
failed = 1'b1; \
|
|
end \
|
|
end
|
|
|
|
initial begin
|
|
failed = 1'b0;
|
|
|
|
#0;
|
|
`check_str(driven[0], "We1");
|
|
`check_str(driven[1], "We0");
|
|
`check_str(resolved[0], "St0");
|
|
`check_str(resolved[1], "St1");
|
|
|
|
if (!failed) begin
|
|
$display("PASSED");
|
|
end
|
|
end
|
|
|
|
endmodule
|