From patchwork Fri Jul 30 05:41:42 2010 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Alan Modra X-Patchwork-Id: 60335 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]) by ozlabs.org (Postfix) with SMTP id 461A5B6F10 for ; Fri, 30 Jul 2010 15:42:02 +1000 (EST) Received: (qmail 13537 invoked by alias); 30 Jul 2010 05:41:58 -0000 Received: (qmail 13511 invoked by uid 22791); 30 Jul 2010 05:41:55 -0000 X-SWARE-Spam-Status: No, hits=-1.1 required=5.0 tests=AWL, BAYES_20, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_NONE X-Spam-Check-By: sourceware.org Received: from mail-pv0-f175.google.com (HELO mail-pv0-f175.google.com) (74.125.83.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 30 Jul 2010 05:41:50 +0000 Received: by pvg13 with SMTP id 13so409894pvg.20 for ; Thu, 29 Jul 2010 22:41:49 -0700 (PDT) Received: by 10.114.130.20 with SMTP id c20mr441944wad.104.1280468509092; Thu, 29 Jul 2010 22:41:49 -0700 (PDT) Received: from bubble.grove.modra.org ([115.187.252.19]) by mx.google.com with ESMTPS id g4sm2994146wae.2.2010.07.29.22.41.47 (version=TLSv1/SSLv3 cipher=RC4-MD5); Thu, 29 Jul 2010 22:41:48 -0700 (PDT) Received: by bubble.grove.modra.org (Postfix, from userid 1000) id 04F38170C1FA; Fri, 30 Jul 2010 15:11:42 +0930 (CST) Date: Fri, 30 Jul 2010 15:11:42 +0930 From: Alan Modra To: gfortran , gcc-patches Subject: testsuite ltime_gmtime tweak Message-ID: <20100730054142.GM16715@bubble.grove.modra.org> Mail-Followup-To: gfortran , gcc-patches MIME-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.20 (2009-06-14) X-IsSubscribed: yes 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 I've had this in my tree for years, living as I do in one of the few regions of the world so backward we have a half-hour timezone. OK to apply? * gfortran.dg/ltime_gmtime_1.f90: Tolerate half-hour timezones. * gfortran.dg/ltime_gmtime_2.f90: Likewise. Index: gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 =================================================================== --- gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 (revision 162669) +++ gcc/testsuite/gfortran.dg/ltime_gmtime_1.f90 (working copy) @@ -5,5 +5,5 @@ t = time() call ltime(t,x) call gmtime(t,y) - if (x(1) /= y(1) .or. x(2) /= y(2)) call abort + if (x(1) /= y(1) .or. mod(x(2),30) /= mod(y(2),30)) call abort end Index: gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 =================================================================== --- gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 (revision 162669) +++ gcc/testsuite/gfortran.dg/ltime_gmtime_2.f90 (working copy) @@ -5,5 +5,5 @@ t = time() call ltime(t,x) call gmtime(t,y) - if (x(1) /= y(1) .or. x(2) /= y(2)) call abort + if (x(1) /= y(1) .or. mod(x(2),30) /= mod(y(2),30)) call abort end