19 lines
396 B
Coq
19 lines
396 B
Coq
|
module test();
|
||
|
|
real r;
|
||
|
|
|
||
|
|
initial
|
||
|
|
begin
|
||
|
|
r=0.25;
|
||
|
|
$write("%f %b %f\n",r, $realtobits(r), $bitstoreal($realtobits(r)));
|
||
|
|
r=0.5;
|
||
|
|
$write("%f %b %f\n",r, $realtobits(r), $bitstoreal($realtobits(r)));
|
||
|
|
|
||
|
|
$display("neg reals don't work");
|
||
|
|
r=-0.25;
|
||
|
|
$write("%f %b %f\n",r, $realtobits(r), $bitstoreal($realtobits(r)));
|
||
|
|
r=-0.5;
|
||
|
|
$write("%f %b %f\n",r, $realtobits(r), $bitstoreal($realtobits(r)));
|
||
|
|
|
||
|
|
end
|
||
|
|
endmodule
|