This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[Patch, fortran] Fix sign error in SYSTEM_CLOCK kind=4 Windows version
- From: Janne Blomqvist <blomqvist dot janne at gmail dot com>
- To: Fortran List <fortran at gcc dot gnu dot org>, GCC Patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 28 Apr 2013 21:18:28 +0300
- Subject: [Patch, fortran] Fix sign error in SYSTEM_CLOCK kind=4 Windows version
Hi,
committed the patch below as obvious:
Index: ChangeLog
===================================================================
--- ChangeLog (revision 198377)
+++ ChangeLog (working copy)
@@ -1,3 +1,8 @@
+2013-04-28 Janne Blomqvist <jb@gcc.gnu.org>
+
+ * intrinsics/system_clock.c (system_clock_4): Fix sign error in
+ Windows version.
+
2013-04-15 Tobias Burnus <burnus@net-b.de>
* list_read.c (finish_separator): Initialize variable.
@@ -37,7 +42,7 @@
(nml_get_obj_data): Likewise use the correct error mechanism.
* io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist
mode.
-
+
2013-03-29 Tobias Burnus <burnus@net-b.de>
PR fortran/56737
Index: intrinsics/system_clock.c
===================================================================
--- intrinsics/system_clock.c (revision 198377)
+++ intrinsics/system_clock.c (working copy)
@@ -134,7 +134,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC
QueryPerformanceCounter has potential issues. */
uint32_t cnt = GetTickCount ();
if (cnt > GFC_INTEGER_4_HUGE)
- cnt -= GFC_INTEGER_4_HUGE - 1;
+ cnt = cnt - GFC_INTEGER_4_HUGE - 1;
*count = cnt;
}
if (count_rate)
--
Janne Blomqvist