28 lines
494 B
Coq
28 lines
494 B
Coq
|
module main;
|
||
|
|
|
||
|
|
real foo;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
foo = 1.0;
|
||
|
|
if (foo != 1.0) begin
|
||
|
|
$display("FAILED: Simple assign works not. foo=%f", foo);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
foo <= 1.5;
|
||
|
|
if (foo != 1.0) begin
|
||
|
|
$display("FAILED: nb assign works too fast. foo=%f", foo);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
#1 if (foo != 1.5) begin
|
||
|
|
$display("FAILED: nb assign works not. foo=%f", foo);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
$finish;
|
||
|
|
end // initial begin
|
||
|
|
|
||
|
|
endmodule // main
|