62 lines
1.3 KiB
Coq
62 lines
1.3 KiB
Coq
|
// Check that string literals can be assigned to nested byte arrays using
|
||
|
|
// assignment patterns.
|
||
|
|
|
||
|
|
module test;
|
||
|
|
|
||
|
|
bit failed = 1'b0;
|
||
|
|
|
||
|
|
`define check(val, exp) do \
|
||
|
|
if (val !== exp) begin \
|
||
|
|
$display("FAILED(%0d). '%s' expected %02h, got %02h", `__LINE__, \
|
||
|
|
`"val`", exp, val); \
|
||
|
|
failed = 1'b1; \
|
||
|
|
end \
|
||
|
|
while(0)
|
||
|
|
|
||
|
|
byte desc [0:1][3:0] = '{"AB\n", "CD\t"};
|
||
|
|
byte asc [1:0][0:3];
|
||
|
|
byte unsized [2][4];
|
||
|
|
|
||
|
|
assign asc = '{"AB\n", "CD\t"};
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
#1;
|
||
|
|
|
||
|
|
`check(desc[0][3], 8'h41);
|
||
|
|
`check(desc[0][2], 8'h42);
|
||
|
|
`check(desc[0][1], 8'h0a);
|
||
|
|
`check(desc[0][0], 8'h00);
|
||
|
|
|
||
|
|
`check(desc[1][3], 8'h43);
|
||
|
|
`check(desc[1][2], 8'h44);
|
||
|
|
`check(desc[1][1], 8'h09);
|
||
|
|
`check(desc[1][0], 8'h00);
|
||
|
|
|
||
|
|
`check(asc[0][0], 8'h43);
|
||
|
|
`check(asc[0][1], 8'h44);
|
||
|
|
`check(asc[0][2], 8'h09);
|
||
|
|
`check(asc[0][3], 8'h00);
|
||
|
|
|
||
|
|
`check(asc[1][0], 8'h41);
|
||
|
|
`check(asc[1][1], 8'h42);
|
||
|
|
`check(asc[1][2], 8'h0a);
|
||
|
|
`check(asc[1][3], 8'h00);
|
||
|
|
|
||
|
|
unsized = '{"AB\n", "CD\t"};
|
||
|
|
`check(unsized[0][0], 8'h41);
|
||
|
|
`check(unsized[0][1], 8'h42);
|
||
|
|
`check(unsized[0][2], 8'h0a);
|
||
|
|
`check(unsized[0][3], 8'h00);
|
||
|
|
|
||
|
|
`check(unsized[1][0], 8'h43);
|
||
|
|
`check(unsized[1][1], 8'h44);
|
||
|
|
`check(unsized[1][2], 8'h09);
|
||
|
|
`check(unsized[1][3], 8'h00);
|
||
|
|
|
||
|
|
if (!failed) begin
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule
|