From: ldo@nz.invalid   
      
   On Wed, 10 Sep 2025 02:15:55 -0000 (UTC), Steven G. Kargl wrote:   
      
   > Intent to column 7 and the following worked over 66 years ago.   
   >   
   > program real_kinds   
   >    real x   
   >    fraction(x) = mod(x,1.)   
   >    x = 3.12345   
   >    print *, fraction(x)   
   > end program real_kinds   
      
   Ignoring the fact that’s not valid FORTRAN 66 or FORTRAN IV (what other   
   spec was valid 66 years ago?), it’s not relevant to the FRACTION()   
   function we are discussing, is it?   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)