From patchwork Fri Jul 27 11:53:12 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Uros Bizjak X-Patchwork-Id: 173648 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 092502C008C for ; Fri, 27 Jul 2012 21:53:33 +1000 (EST) Comment: DKIM? See http://www.dkim.org DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=gcc.gnu.org; s=default; x=1343994815; h=Comment: DomainKey-Signature:Received:Received:Received:Received: MIME-Version:Received:Received:Date:Message-ID:Subject:From:To: Cc:Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe: List-Archive:List-Post:List-Help:Sender:Delivered-To; bh=zBIqnU6 pw5GGcwqfTCw2C3vm+3E=; b=YYpTbUudqremMlVHBJL+h/XTjM7oKEBwaqdgdY0 FOzAuNFNgiIkUbNEBeut7uIjkAip2XKsF1aBkB/KuVbo9jBxDTQXIKVeNvKmCY7y GVXxd1Mp5g0gtI5s+DFKtctS2OQF/59RLmnEwnfNwBgOdjo48YAgz1qHxWKgHbjG 45Jc= Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=default; d=gcc.gnu.org; h=Received:Received:X-SWARE-Spam-Status:X-Spam-Check-By:Received:Received:MIME-Version:Received:Received:Date:Message-ID:Subject:From:To:Cc:Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=rUTErm0xOvGqPoDEHJ8nptP4LRynzIlN5zA0L7s9pHy5TNdNKMPvZPZLcuBuBK ro1NgGW9ijNiKGLufHZ0TFIr11qbvUYUkevGxiW47u4ggYevoMAznycMR/Fsk53Z boa0Agso71MyCbF+fhkgxSCdfBi/Z2+IQtfvXfJO+36JY=; Received: (qmail 1182 invoked by alias); 27 Jul 2012 11:53:29 -0000 Received: (qmail 1164 invoked by uid 22791); 27 Jul 2012 11:53:28 -0000 X-SWARE-Spam-Status: No, hits=-4.2 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, KHOP_RCVD_TRUST, RCVD_IN_DNSWL_LOW, RCVD_IN_HOSTKARMA_YE X-Spam-Check-By: sourceware.org Received: from mail-gg0-f175.google.com (HELO mail-gg0-f175.google.com) (209.85.161.175) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 27 Jul 2012 11:53:13 +0000 Received: by ggnp4 with SMTP id p4so3143121ggn.20 for ; Fri, 27 Jul 2012 04:53:12 -0700 (PDT) MIME-Version: 1.0 Received: by 10.66.73.70 with SMTP id j6mr5199912pav.5.1343389992311; Fri, 27 Jul 2012 04:53:12 -0700 (PDT) Received: by 10.66.11.130 with HTTP; Fri, 27 Jul 2012 04:53:12 -0700 (PDT) Date: Fri, 27 Jul 2012 13:53:12 +0200 Message-ID: Subject: [PATCH, testsuite]: Fix gfortran.dg/bind_c_array_params_2.f90 scan failure on alpha From: Uros Bizjak To: gcc-patches@gcc.gnu.org Cc: Fortran List 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 Hello! Without -mno-explicit-relocs, alpha generates: ldq $27,myBindC($29) !literal!6 jsr $26,($27),myBindC !lituse_jsr!6 which confuses scan-assembler-times "..." 1. Also, added appropriate cleanup-tree-dump while there. Tested on alphaev68-pc-linux-gnu, committed to mainline SVN. Uros. Index: bind_c_array_params_2.f90 =================================================================== --- bind_c_array_params_2.f90 (revision 189904) +++ bind_c_array_params_2.f90 (working copy) @@ -1,5 +1,6 @@ ! { dg-do compile } ! { dg-options "-std=f2008ts -fdump-tree-original" } +! { dg-additional-options "-mno-explicit-relocs" { target alpha*-*-* } } ! ! Check that assumed-shape variables are correctly passed to BIND(C) ! as defined in TS 29913 @@ -14,6 +15,6 @@ call test(aa) end +! { dg-final { scan-assembler-times "myBindC" 1 } } ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } } -! { dg-final { scan-assembler-times "myBindC" 1 } } - +! { dg-final { cleanup-tree-dump "original" } }