32 lines
590 B
Verilog
32 lines
590 B
Verilog
// This should generate an error
|
|
|
|
module main;
|
|
|
|
reg[7:0] shared;
|
|
wire [7:0] not_shared = ~shared;
|
|
|
|
program test1;
|
|
initial shared = 'h55; // ERROR: only non-blocking assign allowed here.
|
|
endprogram :test1
|
|
|
|
program test2;
|
|
reg [7:0] tmp;
|
|
final begin
|
|
if (shared !== 'h55) begin
|
|
$display("FAILED -- shared=%b is not correct", shared);
|
|
$finish;
|
|
end
|
|
|
|
tmp = ~shared;
|
|
if (not_shared !== 'haa) begin
|
|
$display("FAILED == not_shared is not correct", not_shared);
|
|
$finish;
|
|
end
|
|
|
|
$display("PASSED");
|
|
end
|
|
|
|
endprogram :test2
|
|
|
|
endmodule // main
|