[Bug libfortran/29099] secnds intrinsic gives wrong result

[jvdelisle at gcc dot gnu dot org]

------- Comment #1 from jvdelisle at gcc dot gnu dot org  2006-09-15 15:51 
-------
Patch to fix this:

Index: intrinsics/date_and_time.c
===================================================================
*** intrinsics/date_and_time.c  (revision 116941)
--- intrinsics/date_and_time.c  (working copy)
*************** secnds (GFC_REAL_4 *x)
*** 356,362 ****
                   (GFC_REAL_4)values[6] +
           0.001 * (GFC_REAL_4)values[7];
    temp2 = fmod (*x, 86400.0);
!   temp2 = (temp1 - temp2 > 0.0) ? temp2 : (temp2 - 86400.0);
    return temp1 - temp2;
  }

--- 356,362 ----
                   (GFC_REAL_4)values[6] +
           0.001 * (GFC_REAL_4)values[7];
    temp2 = fmod (*x, 86400.0);
!   temp2 = (temp1 - temp2 >= 0.0) ? temp2 : (temp2 - 86400.0);
    return temp1 - temp2;
  }



-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2006-09-15 15:51:40
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29099