From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 81898 invoked by alias); 8 Apr 2016 13:41:26 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 80579 invoked by uid 89); 8 Apr 2016 13:41:25 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.8 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_NONE,SPF_PASS,URIBL_RED autolearn=ham version=3.3.2 spammy=nov, Nov, UD:php 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; Fri, 08 Apr 2016 13:41:15 +0000 Received: from svr-orw-fem-05.mgc.mentorg.com ([147.34.97.43]) by relay1.mentorg.com with esmtp id 1aoWeu-0005xY-1s from Thomas_Schwinge@mentor.com ; Fri, 08 Apr 2016 06:41:12 -0700 Received: from tftp-cs (147.34.91.1) by svr-orw-fem-05.mgc.mentorg.com (147.34.97.43) with Microsoft SMTP Server id 14.3.224.2; Fri, 8 Apr 2016 06:41:11 -0700 Received: by tftp-cs (Postfix, from userid 49978) id B5B12C21BE; Fri, 8 Apr 2016 06:41:10 -0700 (PDT) From: Thomas Schwinge To: Chung-Lin Tang CC: GCC Patches , Jakub Jelinek , Cesar Philippidis , James Norris Subject: Fortran OpenACC host_data construct ICE (was: [gomp4] Re: [OpenACC 0/7] host_data construct) In-Reply-To: <87r3j4lcrd.fsf@kepler.schwinge.homeip.net> References: <56293476.5020801@codesourcery.com> <562A578E.4080907@codesourcery.com> <20151026183422.GW478@tucnak.redhat.com> <20151102183339.365c3d33@octopus> <20151112111621.657650bc@octopus> <20151118124747.30a2ec5d@octopus> <20151119131345.GX5675@tucnak.redhat.com> <20151119142650.5a8842e4@octopus> <20151119155723.GA5675@tucnak.redhat.com> <20151130193034.71143aa4@octopus> <877fkwn8p6.fsf@kepler.schwinge.homeip.net> <87r3j4lcrd.fsf@kepler.schwinge.homeip.net> User-Agent: Notmuch/0.9-125-g4686d11 (http://notmuchmail.org) Emacs/24.5.1 (i586-pc-linux-gnu) Date: Fri, 08 Apr 2016 13:41:00 -0000 Message-ID: <878u0o6wwj.fsf@kepler.schwinge.homeip.net> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" X-SW-Source: 2016-04/txt/msg00400.txt.bz2 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Content-length: 2484 Hi! On Wed, 2 Dec 2015 23:13:58 +0100, I wrote: > On Wed, 2 Dec 2015 16:58:45 +0100, I wrote: > > Cesar and Jim copied, for help with Fortran and generally testsuite > > things. (Just in case you happen to have any ideas.) > > On Mon, 30 Nov 2015 19:30:34 +0000, Julian Brown wrote: > > > [patch] > >=20 > > First, thanks! >=20 > Aside from a number of formatting/re-ordering changes, the front end > changes were basically still the same, but otherwise (middle end, > libgomp) the patch as committed to trunk in r231118 was quite (totally?) > ;-) different from the code we had on gomp-4_0-branch, so I had to spend > some time on merging, cleaning things up. > > Your submission/commit didn't have any execution tests for OpenACC > > host_data in Fortran. On gomp-4_0-branch, there is > > libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f90 at least. >=20 > ..., but this one now FAILs (ICE) as follows: >=20 > [...]/source-gcc/libgomp/testsuite/libgomp.oacc-fortran/host_data-1.f= 90:11:0: internal compiler error: in scan_omp_target, at omp-low.c:3218 > 0xa33e80 scan_omp_target > [...]/source-gcc/gcc/omp-low.c:3218 > [...] Filed . > Maybe that's due to the gcc/gimplify.c:gimplify_scan_omp_clauses issue > mentioned in > , > or maybe something else? (XFAILed for now.) The following patch does not resolve the problem -- but we'll still want something like that, I suppose? --- gcc/gimplify.c +++ gcc/gimplify.c @@ -6544,18 +6544,20 @@ gimplify_scan_omp_clauses (tree *list_p, gimple_seq= *pre_p, the Fortran FE is updated to OpenMP 4.5. */ ctx->target_map_scalars_firstprivate =3D true; } - if (!lang_GNU_Fortran ()) - switch (code) - { - case OMP_TARGET: - case OMP_TARGET_DATA: - case OMP_TARGET_ENTER_DATA: - case OMP_TARGET_EXIT_DATA: - case OACC_HOST_DATA: - ctx->target_firstprivatize_array_bases =3D true; - default: + switch (code) + { + case OMP_TARGET: + case OMP_TARGET_DATA: + case OMP_TARGET_ENTER_DATA: + case OMP_TARGET_EXIT_DATA: + if (lang_GNU_Fortran ()) break; - } + /* FALLTHRU */ + case OACC_HOST_DATA: + ctx->target_firstprivatize_array_bases =3D true; + default: + break; + } =20 while ((c =3D *list_p) !=3D NULL) { Gr=C3=BC=C3=9Fe Thomas --=-=-= Content-Type: application/pgp-signature; name="signature.asc" Content-length: 472 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 iQEcBAEBAgAGBQJXB7TsAAoJEK3/DN1sMFFt++gH/22GwwzslcvRv56s9amB7U9e wOT4dXX4zPmtmahxySmvilxD9wC+OhsVccJtGBsCeZuuEfJrcLhT4dacZSES+Mk9 DfCDlSK9JUKGew+HuDUTWoaCzPVNWHdiCyYUgQQMaKA+xO+k7h1gwR/87P/fwlfI BmfZHestnpFPoLKwaIGB4FvCURTVOa9bVwbqIFRBMSF7Q722Ys20sXmWU41T2gwl V8/6GMbZo2pLt6FxumoVDsymvfzkOZFp8QXgFyyFeiOjcKhDArUB2dEK41YWEhyv sNO2AJanlytlBtzP2Ln4AhlnSkOhoBtCY+JSE89y07mGe/ATVghGeWlsJivcVrY= =9c2p -----END PGP SIGNATURE----- --=-=-=--