46 lines
1.1 KiB
Coq
46 lines
1.1 KiB
Coq
|
module main;
|
||
|
|
|
||
|
|
// Declare word1 as a VARIABLE
|
||
|
|
struct packed {
|
||
|
|
logic [7:0] high;
|
||
|
|
logic [7:0] low;
|
||
|
|
} word1;
|
||
|
|
|
||
|
|
// Declare word2, word3 as a NET
|
||
|
|
wire struct packed {
|
||
|
|
logic [7:0] high;
|
||
|
|
logic [7:0] low;
|
||
|
|
} word2, word3;
|
||
|
|
|
||
|
|
assign word2.high = word1.high;
|
||
|
|
assign word2.low = word1.low;
|
||
|
|
assign {word3.high, word3.low} = {word1.low, word1.high};
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
word1 = 16'haa_55;
|
||
|
|
if (word1.high !== 8'haa || word1.low !== 8'h55) begin
|
||
|
|
$display("FAILED: word1 = %h, word1.high = %h, word1.low = %h",
|
||
|
|
word1, word1.high, word1.low);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
#1 /* Make sure word2 assign propagates */;
|
||
|
|
|
||
|
|
if (word2.high !== 8'haa || word2.low !== 8'h55) begin
|
||
|
|
$display("FAILED: word2 = %h, word2.high = %h, word2.low = %h",
|
||
|
|
word1, word2.high, word2.low);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
/* and also for word3 */
|
||
|
|
if (word3.low !== 8'haa || word3.high !== 8'h55) begin
|
||
|
|
$display("FAILED: word3 = %h, word3.high = %h, word3.low = %h (should be reverse)",
|
||
|
|
word1, word3.high, word3.low);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
|
||
|
|
endmodule // main
|