The return value is of the same type and kind as the argument. The fractional part of the model representation of x is returned; it is x * radix(x)**(-exponent(x)).

Example

program test_fractionreal::xx=178.1387e-4print*,fraction(x),x*radix(x)**(-exponent(x))endprogram test_fraction