component doubletest;
pin out float out;
pin in float in;
pin out bit ok;
pin out float diff;

function update;
function check;

variable int i;

license "GPL";
;;
FUNCTION(update) {
    out = i + i * (1. / 4294967296.);
    i = (i+1) % 100;
}

FUNCTION(check) {
    double tmp = in;
    int j = tmp;
    double k = j + j * (1. / 4294967296.);
    ok = (k == tmp);
    diff = k - tmp;
}