From patchwork Thu Mar 17 14:59:59 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tom de Vries X-Patchwork-Id: 599093 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 3qQs3y3Ldwz9sCj for ; Fri, 18 Mar 2016 02:00:45 +1100 (AEDT) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=W4zR8UJQ; dkim-atps=neutral DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:to :from:subject:message-id:date:mime-version:content-type; q=dns; s=default; b=DfUp1KlUB8fzgylaHFhyAABAQlQHh0Amd6wYP1hrLbphbgHZs4 sRLnL+Oepq/9vnJkdWFYQBLhpvJs+aNLX+dsP1UG/XtAnmN+LXuBjyjueKCIj44o 2q2ZDF8kL21I/FZSJcAGt1PyergXXEo6v4vY4N59eQJLbEngwL9wynxg8= 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:to :from:subject:message-id:date:mime-version:content-type; s= default; bh=pujPDChybc3iOjG2obPzADnE7kc=; b=W4zR8UJQRs4gAGh10Fyg TiwfntT5uJmGcHo4Nyo/334FGg9IvagXMA7KrTBFq+uLzzQC+qkzNyya8cOpSEvR KKNNb+fCEiT4lpYuMAUxlNq4b/+yLjSKEUqPIr2do6L7PjlBZBVPCtOSqzmhI6TY XOowIwTYbwRzv3KJwCPU7V0= Received: (qmail 90756 invoked by alias); 17 Mar 2016 15:00:36 -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 90093 invoked by uid 89); 17 Mar 2016 15:00:36 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.0 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, SPF_PASS autolearn=ham version=3.3.2 spammy=acc, clique, 34 X-HELO: relay1.mentorg.com Received: from relay1.mentorg.com (HELO relay1.mentorg.com) (192.94.38.131) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-GCM-SHA384 encrypted) ESMTPS; Thu, 17 Mar 2016 15:00:25 +0000 Received: from nat-ies.mentorg.com ([192.94.31.2] helo=SVR-IES-FEM-01.mgc.mentorg.com) by relay1.mentorg.com with esmtp id 1agZPS-0005mM-VG from Tom_deVries@mentor.com ; Thu, 17 Mar 2016 08:00:23 -0700 Received: from [127.0.0.1] (137.202.0.76) by SVR-IES-FEM-01.mgc.mentorg.com (137.202.0.104) with Microsoft SMTP Server id 14.3.224.2; Thu, 17 Mar 2016 15:00:21 +0000 To: GCC Patches , Jakub Jelinek From: Tom de Vries Subject: [oacc, testsuite, comitted] Add goacc/kernels-alias-{3,4}.f95 Message-ID: <56EAC66F.4050705@mentor.com> Date: Thu, 17 Mar 2016 15:59:59 +0100 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.6.0 MIME-Version: 1.0 Hi, I've translated the goacc/kernels-alias-{3,4}.c testcases to fortran. Committed to trunk. Thanks, - Tom Add goacc/kernels-alias-{3,4}.f95 2016-03-17 Tom de Vries * gfortran.dg/goacc/kernels-alias-3.f95: New test. * gfortran.dg/goacc/kernels-alias-4.f95: New test. --- gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 | 19 +++++++++++++++++++ gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 | 20 ++++++++++++++++++++ 2 files changed, 39 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 new file mode 100644 index 0000000..56f3d59 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-3.f95 @@ -0,0 +1,19 @@ +! { dg-additional-options "-O2" } +! { dg-additional-options "-fdump-tree-ealias-all" } + +program main + implicit none + integer, target :: a + integer, pointer :: ptr + ptr => a + + !$acc kernels pcopyin (a, ptr) + a = 0 + ptr = 1 + !$acc end kernels + +end program main + +! Only the omp_data_i related loads should be annotated with cliques. +! { dg-final { scan-tree-dump-times "clique 1 base 1" 2 "ealias" } } +! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 2 "ealias" } } diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 new file mode 100644 index 0000000..e65253b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/kernels-alias-4.f95 @@ -0,0 +1,20 @@ +! { dg-additional-options "-O2" } +! { dg-additional-options "-fdump-tree-ealias-all" } + +program main + implicit none + integer, parameter :: n = 2 + integer, target, dimension (0:n-1) :: a + integer, pointer :: ptr(:) + ptr => a + + !$acc kernels pcopyin (a, ptr(0:2)) + a(0) = 0 + ptr(0) = 1 + !$acc end kernels + +end program main + +! Only the omp_data_i related loads should be annotated with cliques. +! { dg-final { scan-tree-dump-times "clique 1 base 1" 3 "ealias" } } +! { dg-final { scan-tree-dump-times "(?n)clique .* base .*" 3 "ealias" } }