22 lines
306 B
Coq
22 lines
306 B
Coq
|
module main;
|
||
|
|
|
||
|
|
real x;
|
||
|
|
real y;
|
||
|
|
|
||
|
|
real bar;
|
||
|
|
|
||
|
|
initial begin
|
||
|
|
x = 5.0;
|
||
|
|
y = 10.0;
|
||
|
|
bar = x % y;
|
||
|
|
$display("bar=%f", bar);
|
||
|
|
|
||
|
|
if (bar != 5.0) begin
|
||
|
|
$display("FAILED -- x %% y --> %f (s.b. 5.0)", bar);
|
||
|
|
$finish;
|
||
|
|
end
|
||
|
|
|
||
|
|
$display("PASSED");
|
||
|
|
end
|
||
|
|
endmodule // main
|