From patchwork Sun Apr 28 18:18:28 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janne Blomqvist X-Patchwork-Id: 240270 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (Client CN "localhost", Issuer "www.qmailtoaster.com" (not verified)) by ozlabs.org (Postfix) with ESMTPS id DBBFF2C00B8 for ; Mon, 29 Apr 2013 04:18:41 +1000 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:date:message-id:subject:from:to:content-type; q= dns; s=default; b=ciOo5AhiaFwxx6P8ygbOqrrBp5+6ckf8pEREgrsBuPRjrs wWtpZqzOLVjtW0Zy8/+AzVakFd1RsnF5pvso2rjhXC1GRD5ZVxUQ4rhLLuVHSPSO bCwlHbDNjC5fahmvMOjmgFd04Aby/HsB1Gc3ZU2QmfOn5OyndD2cNScysESx0= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :mime-version:date:message-id:subject:from:to:content-type; s= default; bh=E3zyqpueWILiSC+3rlLuLYt9qz4=; b=AuDeDH+9BPh+3GfWY+jb 92QFVUV7MfugsehFcGHP7dL3yJSnB2uCAKbaIZAesUhOsiiKRH4ogZHzXNWDk16x uiz+UInIn/Sy8Lc/9zWYKvCMSPOlsZv+MseuudfiRnIDat8WLzhlJwhAeGnkm9UY 7YyKvoQzqqIRM7no4eyRchw= Received: (qmail 28786 invoked by alias); 28 Apr 2013 18:18:32 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 28766 invoked by uid 89); 28 Apr 2013 18:18:31 -0000 X-Spam-SWARE-Status: No, score=-2.7 required=5.0 tests=AWL, BAYES_00, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW, RCVD_IN_HOSTKARMA_YE, SPF_PASS autolearn=ham version=3.3.1 X-Spam-User: qpsmtpd, 2 recipients Received: from mail-wg0-f43.google.com (HELO mail-wg0-f43.google.com) (74.125.82.43) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Sun, 28 Apr 2013 18:18:30 +0000 Received: by mail-wg0-f43.google.com with SMTP id c11so3180998wgh.22 for ; Sun, 28 Apr 2013 11:18:28 -0700 (PDT) MIME-Version: 1.0 X-Received: by 10.180.24.69 with SMTP id s5mr13458263wif.34.1367173108381; Sun, 28 Apr 2013 11:18:28 -0700 (PDT) Received: by 10.194.158.38 with HTTP; Sun, 28 Apr 2013 11:18:28 -0700 (PDT) Date: Sun, 28 Apr 2013 21:18:28 +0300 Message-ID: Subject: [Patch, fortran] Fix sign error in SYSTEM_CLOCK kind=4 Windows version From: Janne Blomqvist To: Fortran List , GCC Patches Hi, committed the patch below as obvious: --- Janne Blomqvist Index: ChangeLog =================================================================== --- ChangeLog (revision 198377) +++ ChangeLog (working copy) @@ -1,3 +1,8 @@ +2013-04-28 Janne Blomqvist + + * intrinsics/system_clock.c (system_clock_4): Fix sign error in + Windows version. + 2013-04-15 Tobias Burnus * 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 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)