From patchwork Fri Aug 25 18:15:09 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Steve Ellcey X-Patchwork-Id: 805992 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Authentication-Results: ozlabs.org; spf=pass (mailfrom) smtp.mailfrom=gcc.gnu.org (client-ip=209.132.180.131; helo=sourceware.org; envelope-from=gcc-patches-return-460963-incoming=patchwork.ozlabs.org@gcc.gnu.org; receiver=) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b="o2AMwFyE"; dkim-atps=neutral Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id 3xf8WF75Hkz9sPs for ; Sat, 26 Aug 2017 04:16:41 +1000 (AEST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:subject:from:reply-to:to:cc:date:content-type :mime-version; q=dns; s=default; b=RJuusZrZJ+B32VQUDiQebzho8OFJL KZuN4Jt/sr2nTMN0XjGBE1LXjezYJMU3YFMpVDEtXFDwLK18bTsCXSl5zSWz83sB YN8W+L/Cr57giOb5ILnNeNnzODNPvJWQ2vk34bXvQ3tloIr7/WKKggYGgCTpAXBm XfEyL2mu2N8CmU= 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 :message-id:subject:from:reply-to:to:cc:date:content-type :mime-version; s=default; bh=MXKCu42kQulY8HTxVgEj/xCFVNo=; b=o2A MwFyEX5A1eDWBc7m3eX8K2ZcqPpetnAta7lsde/aMTdm4iZpjD10Ljr36ZkROw7R g28/HISKgGkb8DD6+M3eGmNBf3NHTiKIXKpr0f2H19M2ruF9lBtum26OkyPoIQ/8 poGryMUyhDHEF5+WRHvVamC6u1x9MzAdEfwiKMKo= Received: (qmail 52417 invoked by alias); 25 Aug 2017 18:16:09 -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 13243 invoked by uid 89); 25 Aug 2017 18:15:45 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-25.1 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, RCVD_IN_DNSWL_NONE, SPF_HELO_PASS autolearn=ham version=3.3.2 spammy=H*M:116, H*MI:116, valued X-Spam-User: qpsmtpd, 2 recipients X-HELO: NAM03-BY2-obe.outbound.protection.outlook.com Received: from mail-by2nam03on0059.outbound.protection.outlook.com (HELO NAM03-BY2-obe.outbound.protection.outlook.com) (104.47.42.59) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 25 Aug 2017 18:15:22 +0000 Authentication-Results: spf=none (sender IP is ) smtp.mailfrom=Steve.Ellcey@cavium.com; Received: from sellcey-dt.caveonetworks.com (50.233.148.156) by MWHPR07MB3549.namprd07.prod.outlook.com (10.164.192.138) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384_P256) id 15.1.1385.9; Fri, 25 Aug 2017 18:15:12 +0000 Message-ID: <1503684909.28672.116.camel@cavium.com> Subject: [PATCH] Fix fortran tests to not print out non-ascii characters From: Steve Ellcey Reply-To: sellcey@cavium.com To: fortran@gcc.gnu.org, gcc-patches Cc: fritzoreese@gmail.com Date: Fri, 25 Aug 2017 11:15:09 -0700 Mime-Version: 1.0 X-ClientProxiedBy: CY4PR1201CA0001.namprd12.prod.outlook.com (10.172.75.11) To MWHPR07MB3549.namprd07.prod.outlook.com (10.164.192.138) X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 040c2f6c-46af-44d3-4e78-08d4ebe53a76 X-Microsoft-Antispam: UriScan:; BCL:0; PCL:0; RULEID:(300000500095)(300135000095)(300000501095)(300135300095)(300000502095)(300135100095)(22001)(2017030254152)(300000503095)(300135400095)(49563074)(201703131423075)(201703031133081)(201702281549075)(300000504095)(300135200095)(300000505095)(300135600095)(300000506095)(300135500095); SRVR:MWHPR07MB3549; X-Microsoft-Exchange-Diagnostics: 1; MWHPR07MB3549; 3:A0IgqNFfSau0+yKgSxH4GPDRvS9ZDr7QDLoAunb98ByUyBtLXgM/EPqjATjG/R5Brynqs7iE04WglGzaB16bLgQ6wRKaUEMlZyW/kIuZ/wVWPfxLu6NnFDx3vEwMdr7WeAG5iilcroUW9bIXn+nXbUX7fUCR4sO8QQhVlqqJuqXIlY4uRRcTB2x43/gKWmVrBjKkdm/yweWdKMTqOWktVOXnKcG+g1xLrHWMsUeHb3Ee72aEmGwUJxRhBq6vdUMU; 25:OKbExGD3+fJNHR7+7WXpLOKW/8nXWzXOxLJz7NpaFHKRdwBr6Pl5YTGkwEMc4PIs0SbGjDq6vVtwqSZ3d7d14xgCxs3onJLydcYf0q0vgJgAO5Xv303dBkAv5Ru0ttV9zbWkNd3oDKAekCa3qjkAUdUWr4P6DzXpn2ALD7Noj9QHWlJepEW8V/uteNfLIJiEV/lQgVDIUoB+Z3fn7dPgE3WeAH65rYd90hxd/Q/EOjmeDIYH+9F4H/+QOzKfobYr2n7CVh8/SHB09lbldQya0KOmQsDBDr6homg0hVpfMl6BKvW0WvFWJkN5lKgmIrRojR00+5EwHkY9Uczl8bC1tw==; 31:s5bXBkcDUAUPHGMMYJ1TVeN0OKWghO4vkIqJiegsD5j6IvHg/+H8Bcsj7EgeRu7SHRGSbovz+TvSxoZxUkg5BFD1VV4EIRu9IeXndyM46UyeS5P3cku2qbYNpckoXU3B4MWxo1RUWdcBGq2Yy44wChqZqVBULyoYOLQGQ/DBMzAb9FVtT8h2ptcwkMwHCjDUkLfYLn2Q1oxnZtWE7j1LrPMmdauFGIMLH1l9vDkoniA= X-MS-TrafficTypeDiagnostic: MWHPR07MB3549: X-Microsoft-Exchange-Diagnostics: 1; MWHPR07MB3549; 20:wiVAqBYxAM6dIYyK/kBgqXW76W29lsz1dpuv8MWqPL4r1VIN9fzjvbsb1j/41XfJ++YwHHFPBv9ATKW/K++GiQdXifMw1Y8ji63kZfW48WT/iLzn7U/0Uj/nhqui8v2X7uJflqz6rBb+LFLDm0K1jWIVBgvFO2U6TASu4a597FfwsgZ6ncshbckUfe6FtiWjWqS8f+nKp93jXyscDFV0ncqBO8ZjJvrNRBjabeglb48YrmLM348ul3uuJfw+p3F4bpppRXyG78zTM5eXTwS2xUau2jlyej4yemggvnc8aFV99+RfZ3cK1hKwnw+Feq7iOcu47i/fORPo0XWaI2SnjdHvdmZZNKqfogBAECtmRp0pghCT5N6iggimWTqU5xyJCjBjIbIFLqX1dy90iVNy2yJ5iTDepugl0UTNzt9zSoBaGSWf91PNFwSwlIn6LhiRygsdNCuM43rIvnwfTzKjHiWwuVb0QVqxuGDVS/IU68KKjTcdzCbGBdvFsyAnyYgB; 4:tZ1spy4WxgfNKl2sGUbYBLt8qZvMHi9Ibznfn0MoTkZ1S5GO/91pSMnnmZ4qxFHUjLkajoN5s7BAjND+x1CT8XEkMuZVGtyPzanCYKByzPMAAI3o6PYrNd+qZaSHNrg6TM1xYsF5jwL2/J7uUbcnje5UHxjOKJoyDym8ogcVM6CRgjhJiPdC/4hZo/72xDNjdlsAsIF3dDjwuAQv/HVupZgKESwU76aPVHV14telJ+0r4YhMvSUlIj1qrwkx/Vwb X-Exchange-Antispam-Report-Test: UriScan:; X-Microsoft-Antispam-PRVS: X-Exchange-Antispam-Report-CFA-Test: BCL:0; PCL:0; RULEID:(100000700101)(100105000095)(100000701101)(100105300095)(100000702101)(100105100095)(102415395)(6040450)(601004)(2401047)(5005006)(8121501046)(3002001)(100000703101)(100105400095)(93006095)(93001095)(10201501046)(6041248)(20161123562025)(20161123555025)(20161123564025)(201703131423075)(201702281528075)(201703061421075)(201703061406153)(20161123558100)(20161123560025)(6072148)(201708071742011)(100000704101)(100105200095)(100000705101)(100105500095); SRVR:MWHPR07MB3549; BCL:0; PCL:0; RULEID:(100000800101)(100110000095)(100000801101)(100110300095)(100000802101)(100110100095)(100000803101)(100110400095)(100000804101)(100110200095)(100000805101)(100110500095); SRVR:MWHPR07MB3549; X-Forefront-PRVS: 041032FF37 X-Forefront-Antispam-Report: SFV:NSPM; SFS:(10009020)(4630300001)(7370300001)(6009001)(199003)(189002)(377424004)(189998001)(97736004)(53936002)(512874002)(6512007)(69596002)(5000100001)(2906002)(3450700001)(4610100001)(110136004)(6486002)(2476003)(6506006)(50986999)(568964002)(66066001)(5890100001)(84326002)(7736002)(105586002)(106356001)(101416001)(53416004)(42186005)(7350300001)(68736007)(36756003)(5660300001)(6116002)(43066003)(6666003)(6916009)(81156014)(478600001)(8676002)(305945005)(103116003)(4326008)(25786009)(72206003)(81166006)(33646002)(3846002)(50226002)(99106002); DIR:OUT; SFP:1101; SCL:1; SRVR:MWHPR07MB3549; H:sellcey-dt.caveonetworks.com; FPR:; SPF:None; PTR:InfoNoRecords; A:1; MX:1; LANG:en; Received-SPF: None (protection.outlook.com: cavium.com does not designate permitted sender hosts) X-Microsoft-Exchange-Diagnostics: =?us-ascii?Q?1; MWHPR07MB3549; 23:QusepsL1D3yC44uWqW+GhEwTZBqQojpgOfckuV+cj?= =?us-ascii?Q?PvmjPRJF/2bigx4Ni2S2AKQkk9A1V1YDIBow/CDlXdzSS/iBGO4riaSxlFPV?= =?us-ascii?Q?xPQsS2qiAjI/15fqiQsD1NFtTtYPCCDA7OOPZLQTda3ei1OYtZSbXHtmK/lS?= =?us-ascii?Q?xiCJbfqBhPKUssXX/MB2FJZXzMRNRcYzTne6HIMofMQw4khi9jWcQX134kAn?= =?us-ascii?Q?5OnljPZ5jrYVy0PcPDpcLYtcoY6vSSYrdwo0+oAErXSG2AyQOb/zyBB87E2n?= =?us-ascii?Q?qRqO4oLc621zPZtL7XdP3ao15qOcN1KHTHEnAdenZI5JaTJerLaSqlh7QIeA?= =?us-ascii?Q?qU+3/V6XKi4iNOQ9oYREQe7orb2P2yLn6UMgywDKiGHbP/2u1z4ZJi7oG3QS?= =?us-ascii?Q?pW4TwkenF64J2OUMVmP+HRPUylsH/PPPu888awUGEf4VAAFTLRHfIPrk/P7r?= =?us-ascii?Q?QmNo+v/a/0fsfRlmoT/Yr8hkrlC6vFkaPLbFSBOglkgxZMKriVCcTlPckFEB?= =?us-ascii?Q?2T16EUNRm9dY+fBxuqpCkA0/vyXoNSX9yhlgyRE2gEq5+4xrI7aDoaEnovgz?= =?us-ascii?Q?hnT4DvVEwZaR22UwW/kzHroGBGdbBRwAX6oRXfQsrpfohytv1UXecXvNMOZm?= =?us-ascii?Q?E2oYlLhceeRVpLjAGhyVlqLDLzezuCWbtDo6F4KXPQ4C+BMH6l+8zt+6wabF?= =?us-ascii?Q?XZLJ7oi5mfCE0lBHTmmUa9ji2Wz6FX351T8ZH0rhKqzpoxInXnHFJ6o1e6o2?= =?us-ascii?Q?f1NbFQLs/LxRBse+mYB8qTOMC+6ryfmxA5oFwH+NKwoqb31RlrG6dBDYnDyw?= =?us-ascii?Q?rfJGzkWNoVusH/M8Ks4ziPFbTEfmiNM0R5602BRL77SjgRcL6ebdk8XARHDy?= =?us-ascii?Q?17NhnCg+x9SiCVxj/t9vOTcWKrYg651SEt+/tbXogfBgFPrzMXamE+jpGT8D?= =?us-ascii?Q?TRO1EIGXzedzWFGAQf2SB0n1aNqTzGQ48QGTMAekniJc2w9SkJzQEk73B7gu?= =?us-ascii?Q?ZVL/beL0YJlqpyFNIB0VTfiQAOzBJfjRfJQOf/BrVS//z/EiKpfyA/6IyXp6?= =?us-ascii?Q?I95dbh0lStq2T5odvgru/VYX7C9wkVchQxakaL6plEBERHs/soyuqe+PK6PY?= =?us-ascii?Q?r6bPSAsES91koMFRSscuqb55tRULzXvMLSNhk5HSQfOHMEBMzl57k6p6RNjn?= =?us-ascii?Q?Z34tLYjGOeyOrsrfBJqDJAYJKyHzzZd2vOyQdgP9wGR/UsaxZlAH9C/5Pgte?= =?us-ascii?Q?TPDou/k5pK2zrFYluFq3eTvDCoRLhwLn+OcairW?= X-Microsoft-Exchange-Diagnostics: 1; MWHPR07MB3549; 6:5kun5Z93WSyzrSTaG0G6zjaeywyXpFdzZw6CyDIVAq9Ecy0CdKcOYTuUyYS8IxKChkuxdFN+3zv5PskTau1asOvuiSeoagXd2YLZnxx0ayloz7TgnP7HJwFRO5/g63SjkXwp1L+C0+qrwz+5fUcX68ZcU9X56fR2Jluiz5rKdklKNDk1jt5go/LiZowC7nLn0OS87mhekAajQIOcc1sTzfBzgCJOUka9XOrVU6skGMcrYRGXNiNBHas7CficVtfEGfdvjxhBRqVhrFcex33h1PyGisfCHMXgg0vYgBAGen9297kibP1KmmHtMU61f0uk5A6qCkGFdcHOUGfSqYiVbA==; 5:w4hI20TYRuWGg6fPGEdChkNfj6VzDHoZhOpJ7K/7JxCRvb2a1QYHYp8M3mc6pEU0DFBaJX9YS9xIzrefY7/gYm55GLTDsJHzmDsEmIgAn6/fVfLszwqZJXAVhvaOwkzzhQq0ivlgXtRMU4y07I6tfg==; 24:zKiuYFbjwiEmQax/2lhT4hqmz1VnDVI4kICpsXjN9quOkUgx+5uXK7w5nyiDU9zn2RdKqxyGw0iRF1J+QEnIxipE6pfX7SsrB4CgZ8yFjYY=; 7:4GyVNbEMLV9xeLbPY9DgsZ1/TcJf3jZ6FJ7IptJ/arbrr0/facMYNv4rPm589jL4pzMcRkdbTOI8gQcVdg8jU1gUMM6/7lp/ZcUAOH/qjV+EiGQNG7LfMhb7o64kRfeZ/+e9SMTMc70p95PrczjRjHrmS36W81VepKQptqG2j5/b7qBaq580ZGTPnd65+7SJItdJoYq7NBb7eQWMpvJ5NrTnA8n8KxdurxigIy4t+AI= SpamDiagnosticOutput: 1:99 SpamDiagnosticMetadata: NSPM X-OriginatorOrg: cavium.com X-MS-Exchange-CrossTenant-OriginalArrivalTime: 25 Aug 2017 18:15:12.4140 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-Transport-CrossTenantHeadersStamped: MWHPR07MB3549 This is a minor patch for a minor problem, I will check it in as obvious if no one objects.  While looking at another issue I found that the gfortran.log file created by testing contains some non-ascii characters, this bothered me and caused some problems when grepping for things.  I tracked down the problem to these 3 tests that are printing out 0 valued character variables.  The variables are supposed to be 0, because that is what the test is checking for, so my fix is to print out the ichar value of the character variable instead of the variable itself. Steve Ellcey sellcey@cavium.com 2017-08-25  Steve Ellcey   * gfortran.dg/dec_init_1.f90 (dummy): Use ichar in print statement. * gfortran.dg/dec_init_2.f90 (dummy): Ditto. * gfortran.dg/dec_init_3.f90 (dummy): Ditto. diff --git a/gcc/testsuite/gfortran.dg/dec_init_1.f90 b/gcc/testsuite/gfortran.dg/dec_init_1.f90 index 03ada9c..5e1956a 100644 --- a/gcc/testsuite/gfortran.dg/dec_init_1.f90 +++ b/gcc/testsuite/gfortran.dg/dec_init_1.f90 @@ -14,7 +14,7 @@ subroutine dummy(i1,r1,c1,l1,i2,r2,c2,l2) real, intent(inout) :: r2 character, intent(inout) :: c2 logical, intent(inout) :: l2 - print *, i1, i2, l1, l2, c1, c2, r1, r2 + print *, i1, i2, l1, l2, ichar(c1), ichar(c2), r1, r2 if ( i1 .ne. 0 .or. i2 .ne. 0 ) call abort() if ( l1 .or. l2 ) call abort() if ( c1 .ne. achar(0) .or. c2 .ne. achar(0) ) call abort() diff --git a/gcc/testsuite/gfortran.dg/dec_init_2.f90 b/gcc/testsuite/gfortran.dg/dec_init_2.f90 index 41deac9..eae5549 100644 --- a/gcc/testsuite/gfortran.dg/dec_init_2.f90 +++ b/gcc/testsuite/gfortran.dg/dec_init_2.f90 @@ -15,7 +15,7 @@ subroutine dummy(i1,r1,c1,l1,i2,r2,c2,l2) real, intent(inout) :: r2 character, intent(inout) :: c2 logical, intent(inout) :: l2 - print *, i1, i2, l1, l2, c1, c2, r1, r2 + print *, i1, i2, l1, l2, ichar(c1), ichar(c2), r1, r2 if ( i1 .ne. 42 .or. i2 .ne. 42 ) call abort() if ( (.not. l1) .or. (.not. l2) ) call abort() if ( c1 .ne. achar(32) .or. c2 .ne. achar(32) ) call abort() diff --git a/gcc/testsuite/gfortran.dg/dec_init_3.f90 b/gcc/testsuite/gfortran.dg/dec_init_3.f90 index 6c1161a..253cd9b 100644 --- a/gcc/testsuite/gfortran.dg/dec_init_3.f90 +++ b/gcc/testsuite/gfortran.dg/dec_init_3.f90 @@ -14,7 +14,7 @@ subroutine dummy(i1,r1,c1,l1,i2,r2,c2,l2) real, intent(inout) :: r2 character, intent(inout) :: c2 logical, intent(inout) :: l2 - print *, i1, i2, l1, l2, c1, c2, r1, r2 + print *, i1, i2, l1, l2, ichar(c1), ichar(c2), r1, r2 if ( i1 .ne. 0 .or. i2 .ne. 0 ) call abort() if ( l1 .or. l2 ) call abort() if ( c1 .ne. achar(0) .or. c2 .ne. achar(0) ) call abort()