32 lines
570 B
Coq
32 lines
570 B
Coq
|
module main;
|
||
|
|
|
||
|
|
wire struct packed {
|
||
|
|
logic m1;
|
||
|
|
logic [7:0] m8;
|
||
|
|
} foo;
|
||
|
|
|
||
|
|
assign foo = {1'b1, 8'ha5};
|
||
|
|
|
||
|
|
struct packed {
|
||
|
|
logic [3:0] m4;
|
||
|
|
logic [7:0] m8;
|
||
|
|
} bar;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
#1 /* wait for logic to settle. */;
|
||
|
|
bar.m8 <= foo.m8[7:0];
|
||
|
|
bar.m4 <= foo.m8[7:4];
|
||
|
|
#1 $display("bar8=%h, bar4=%h", bar.m8, bar.m4);
|
||
|
|
if (bar.m8 !== 8'ha5) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
if (bar.m4 !== 4'ha) begin
|
||
|
|
$display("FAILED");
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule // main
|