From patchwork Sat Jul 5 15:56:54 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: =?utf-8?q?Dominique_d=27Humi=C3=A8res?= X-Patchwork-Id: 367325 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.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id C21E2140103 for ; Sun, 6 Jul 2014 01:57:15 +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:date :to:cc:subject:mime-version:content-type :content-transfer-encoding:message-id:from; q=dns; s=default; b= liyearCWoK4aL4PBzlpHGPHW0OaLouRCKsm2eI5uFa8a+G3NRuNA2/zA5kHrmskc dCsmgY7iUhvAsneWlUrhlbU2RnlmUQKIZ9VyfsgMA+gadHqhHSi3rEcDcmwjjre7 3vrpY5iqJdtpS6XegJoVyzpL9D00324eCGRVujn66Oo= 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:date :to:cc:subject:mime-version:content-type :content-transfer-encoding:message-id:from; s=default; bh=1jpKa0 xMGJ7WkRAwCWCM1oz+0gM=; b=CBFMTPIzLrXYDdSj2hSLGEfsg0CCf1ofKRiRq/ JSggATUvYvJqQQqASY5IrxeXbpJCATVm63zqFQhs/SabEkZaTPJQRMi+euvYPJrB sn//Y2zOz3PEZpP/TEncxxRTYUr/Zs+fKbcVezt6bjAulR6aVyIm5uLerjkSM/Hh qpvHc= Received: (qmail 9571 invoked by alias); 5 Jul 2014 15:57:03 -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 9541 invoked by uid 89); 5 Jul 2014 15:57:02 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.5 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_LOW, RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: nef2.ens.fr Received: from nef2.ens.fr (HELO nef2.ens.fr) (129.199.96.40) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 05 Jul 2014 15:57:00 +0000 Received: from mailhost.lps.ens.fr (tournesol.lps.ens.fr [129.199.120.1]) by nef2.ens.fr (8.13.6/1.01.28121999) with ESMTP id s65FusR8047433 ; Sat, 5 Jul 2014 17:56:54 +0200 (CEST) X-Envelope-To: gcc-patches@gcc.gnu.org Received: from localhost (localhost [127.0.0.1]) by mailhost.lps.ens.fr (Postfix) with ESMTP id 3408B7D; Sat, 5 Jul 2014 17:56:54 +0200 (CEST) Received: from mailhost.lps.ens.fr ([127.0.0.1]) by localhost (tournesol.lps.ens.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 2blQWkySNr2D; Sat, 5 Jul 2014 17:56:54 +0200 (CEST) Received: by mailhost.lps.ens.fr (Postfix, from userid 8513) id 20DD5105; Sat, 5 Jul 2014 17:56:54 +0200 (CEST) Date: Sat, 05 Jul 2014 17:56:54 +0200 To: fortran@gcc.gnu.org Cc: hp@bitrange.com, schwab@linux-m68k.org, dave.anglin@bell.net, gcc-patches@gcc.gnu.org Subject: [Patch, testsuite] PR61453 gfortran.dg/bind_c_array_params_2.f90 for targets where a call insn isn't "call" User-Agent: Heirloom mailx 12.5 6/20/10 MIME-Version: 1.0 Message-Id: <20140705155654.20DD5105@mailhost.lps.ens.fr> From: dominiq@lps.ens.fr (Dominique Dhumieres) Is the following patch OK for trunk? 2014-07-05 Dominique d'Humieres PR testsuite/61453 * gfortran.dg/gfortran.dg/bind_c_array_params_2.f90: Adjust regexp for more targets. --- ../_clean/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 2014-05-24 16:17:53.000000000 +0200 +++ gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 2014-05-29 11:34:40.000000000 +0200 @@ -16,7 +16,7 @@ integer :: aa(4,4) call test(aa) end -! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC" 1 { target { ! { hppa*-*-hpux* } } } } } -! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC,%r2" 1 { target { hppa*-*-hpux* } } } } +! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC" 1 { target { ! { hppa*-*-hpux* } } } } } +! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC,%r2" 1 { target { hppa*-*-hpux* } } } } ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } } ! { dg-final { cleanup-tree-dump "original" } }