git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/29099 (secnds intrinsic gives wrong result) 

2006-09-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/29099
	* intrinsics/date_and_time.c (secnds): Fix case of zero time.

From-SVN: r116975
This commit is contained in:
Jerry DeLisle 2006-09-15 16:03:52 +00:00
parent 615d37d2bb
commit f49d5a7eca
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,4 +1,9 @@
2006-09-14 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2006-09-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29099
* intrinsics/date_and_time.c (secnds): Fix case of zero time.
2006-09-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/29053 PR libgfortran/29053
* io.h (gfc_unit): Add variable, strm_pos, to track * io.h (gfc_unit): Add variable, strm_pos, to track

2
libgfortran/intrinsics/date_and_time.c
View File

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