From patchwork Tue Dec 8 23:24:37 2015 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: James Norris X-Patchwork-Id: 554122 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 E03EA1402B4 for ; Wed, 9 Dec 2015 10:24:57 +1100 (AEDT) Authentication-Results: ozlabs.org; dkim=pass (1024-bit key; unprotected) header.d=gcc.gnu.org header.i=@gcc.gnu.org header.b=Y8Ed0v/A; 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 :message-id:date:from:mime-version:to:cc:subject:content-type; q=dns; s=default; b=NzriwzshZvz9jlqTEpina7wk4b0rUvwP9lFVSEEKdNH mEOzH4mdfL7CYIi9dZE88RdFIzmAz3TeTV78GiInJBxVlO35+qP1407E9NC8qI79 OlfrLy3gM2CtMRI8RZFEu23fychEmPU+t7XpiHnwxyOZh0s3yaj7nWUkbX624wnA = 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:date:from:mime-version:to:cc:subject:content-type; s=default; bh=n5pbU1XLacaSkBI6iQrYGLWfEtY=; b=Y8Ed0v/AwKOsxfigv HUr6g4TDJ2i227+MehwtKeCR82yoEC2oC3GIC0RdUoUSKYrgCy1F2j5TuJ/eZG+E OQvI9ZjC+tPxT4sGzIIPVD+OgllwcjMagUrWd9LJi9BEUU0pRNHi7KRRPEzgtGHU 2+jftpdaWBjK5/+XUUbmoa+zIc= Received: (qmail 29238 invoked by alias); 8 Dec 2015 23:24:44 -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 29214 invoked by uid 89); 8 Dec 2015 23:24:43 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.7 required=5.0 tests=AWL, BAYES_00, KAM_ASCII_DIVIDERS, RCVD_IN_DNSWL_LOW, SPF_PASS autolearn=no version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients 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 ESMTP; Tue, 08 Dec 2015 23:24:42 +0000 Received: from svr-orw-fem-03.mgc.mentorg.com ([147.34.97.39]) by relay1.mentorg.com with esmtp id 1a6Rcc-0001Sk-VY from James_Norris@mentor.com ; Tue, 08 Dec 2015 15:24:39 -0800 Received: from [172.30.80.171] (147.34.91.1) by svr-orw-fem-03.mgc.mentorg.com (147.34.97.39) with Microsoft SMTP Server id 14.3.224.2; Tue, 8 Dec 2015 15:24:38 -0800 Message-ID: <566766B5.9050901@codesourcery.com> Date: Tue, 8 Dec 2015 17:24:37 -0600 From: James Norris User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Thunderbird/31.7.0 MIME-Version: 1.0 To: GCC Patches CC: , Thomas Schwinge Subject: [gomp4] Add Fortran runtime test Hi, Add test to exercise the kernels construct with the pcreate clause. Committed to gomp-4_0-branch. Jim Index: libgomp/ChangeLog.gomp =================================================================== --- libgomp/ChangeLog.gomp (revision 231430) +++ libgomp/ChangeLog.gomp (working copy) @@ -1,3 +1,7 @@ +2015-12-08 James Norris + + * testsuite/libgomp.oacc-fortran/kernels-map-1.f90: Add new test. + 2015-12-08 Thomas Schwinge James Norris Index: libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90 =================================================================== --- libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90 (revision 231430) +++ libgomp/testsuite/libgomp.oacc-fortran/kernels-map-1.f90 (working copy) @@ -1,9 +1,9 @@ -! Test the copy, copyin, copyout, pcopy, pcopyin, and pcopyout +! Test the copy, copyin, copyout, pcopy, pcopyin, pcopyout, and pcreate ! clauses on kernels constructs. program map integer, parameter :: n = 20, c = 10 - integer :: i, a(n), b(n) + integer :: i, a(n), b(n), d(n) a(:) = 0 b(:) = 0 @@ -88,6 +88,20 @@ !$acc end kernels call check (a, b, n) + + ! PRESENT_OR_CREATE + + a(:) = 0 + + !$acc kernels pcopyout (a) pcreate (d) + !$acc loop + do i = 1, n + d(i) = i + a(i) = d(i) + end do + !$acc end kernels + + call check (a, b, n) end program map subroutine check (a, b, n)