From: Me@invalid.domain   
      
   On 19.08.2025 12:15, Kay Diederichs wrote:   
   >   
   > The following program, adapted from the Example in the documentation you   
   > cite:   
   >   
   > program test_fraction   
   >    real :: x   
   >    x = 3.75   
   >    print *, fraction(x), x   
   >    print *, x * radix(x)**(-exponent(x))   
   > end program test_fraction   
   >   
   > prints:   
   >    0.937500000       3.75000000   
   >     0.00000000   
   >   
   > but I was expecting it to print:   
   >    0.937500000       3.75000000   
   >    0.937500000   
   >   
   > because the documentation says that fraction(x) is the same as  x *   
   > radix(x)**(-exponent(x)) .   
      
   I just tested with Intel FORTRAN and yes it is as you expected   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)