X'Fraction(Y) is an Ada attribute where X is any floating-point type and Y is any instance of that type.

X'Fraction(Y) returns the floating point number Y with the exponent replaced with 0. This is the same as X'Compose(Y, 0).

### Ada Reference Manual

edit