diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2013-04-28 21:16:25 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2013-04-28 21:16:25 +0300 |
| commit | a2f7b4ad34f5690f71d95d4e438b9a8006d45bd9 (patch) | |
| tree | 32c3aa1e5557572b3c6590fd1484bfe945a6103c /libgfortran/intrinsics | |
| parent | 22ad5e0a85cd25e2636b68434535bfa494b4edb4 (diff) | |
| download | gcc-a2f7b4ad34f5690f71d95d4e438b9a8006d45bd9.zip gcc-a2f7b4ad34f5690f71d95d4e438b9a8006d45bd9.tar.gz gcc-a2f7b4ad34f5690f71d95d4e438b9a8006d45bd9.tar.bz2 | |
Fix sign error in SYSTEM_CLOCK kind=4 Windows version.
2013-04-28 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/system_clock.c (system_clock_4): Fix sign error in
Windows version.
From-SVN: r198378
Diffstat (limited to 'libgfortran/intrinsics')
| -rw-r--r-- | libgfortran/intrinsics/system_clock.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/system_clock.c b/libgfortran/intrinsics/system_clock.c index 74a294d..ba4cd47 100644 --- a/libgfortran/intrinsics/system_clock.c +++ b/libgfortran/intrinsics/system_clock.c @@ -134,7 +134,7 @@ system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate, 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) |