From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 120941 invoked by alias); 3 Jan 2020 11:29:51 -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 120931 invoked by uid 89); 3 Jan 2020 11:29:50 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=0.4 required=5.0 tests=AWL,BAYES_00,GARBLED_SUBJECT,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=no version=3.3.1 spammy= X-HELO: us-smtp-1.mimecast.com Received: from us-smtp-delivery-1.mimecast.com (HELO us-smtp-1.mimecast.com) (205.139.110.120) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 03 Jan 2020 11:29:49 +0000 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=redhat.com; s=mimecast20190719; t=1578050988; h=from:from:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references; bh=jCB6mIsfZ1hQn/PxLxbt0fwbSrYko3UMnNqXgN3Q4Ps=; b=C6Jjp1j+ATY488aXocgAL04eOfZma2yuZLieUCpoznA14IDDst7N2H4X57s1OgZVaUy7A2 Amh2s5bkP/BAs7lcpOgQxySt6jN47vyR1bLNEFXl1Lnf2265hR+pNyt9XQJDgiegpeaK0Y tLN4Tl6dI6eWpFS8Ee60LR1QKS1KsMU= Received: from mimecast-mx01.redhat.com (mimecast-mx01.redhat.com [209.132.183.4]) (Using TLS) by relay.mimecast.com with ESMTP id us-mta-296-sbynylaDNvCxXeQHd5bhHQ-1; Fri, 03 Jan 2020 06:29:46 -0500 Received: from smtp.corp.redhat.com (int-mx02.intmail.prod.int.phx2.redhat.com [10.5.11.12]) (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits)) (No client certificate requested) by mimecast-mx01.redhat.com (Postfix) with ESMTPS id C4BD8107ACC7; Fri, 3 Jan 2020 11:29:45 +0000 (UTC) Received: from tucnak.zalov.cz (ovpn-116-112.ams2.redhat.com [10.36.116.112]) by smtp.corp.redhat.com (Postfix) with ESMTPS id 261F460BF7; Fri, 3 Jan 2020 11:29:44 +0000 (UTC) Received: from tucnak.zalov.cz (localhost [127.0.0.1]) by tucnak.zalov.cz (8.15.2/8.15.2) with ESMTP id 003BTgbR002877; Fri, 3 Jan 2020 12:29:43 +0100 Received: (from jakub@localhost) by tucnak.zalov.cz (8.15.2/8.15.2/Submit) id 003BTfg2002876; Fri, 3 Jan 2020 12:29:41 +0100 Date: Fri, 03 Jan 2020 11:29:00 -0000 From: Jakub Jelinek To: Tobias Burnus Cc: gcc-patches , fortran , Thomas Schwinge Subject: Re: [Patch, Fortran] =?utf-8?Q?OpenMP=2FOp?= =?utf-8?B?ZW5BQ0Mg4oCT?= fix more issues with OPTIONAL Message-ID: <20200103112941.GP10088@tucnak> Reply-To: Jakub Jelinek References: <01b9ed0e-aee8-b12a-c293-b057d71fac21@codesourcery.com> MIME-Version: 1.0 In-Reply-To: <01b9ed0e-aee8-b12a-c293-b057d71fac21@codesourcery.com> User-Agent: Mutt/1.11.3 (2019-02-01) X-Mimecast-Spam-Score: 0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Content-Disposition: inline X-IsSubscribed: yes X-SW-Source: 2020-01/txt/msg00056.txt.bz2 On Tue, Dec 10, 2019 at 06:54:19PM +0100, Tobias Burnus wrote: > 2019-12-10 Tobias Burnus >=20 > gcc/fortran/ > * trans-openmp.c (gfc_omp_check_optional_argument): Always return a > Boolean expression; handle unallocated/disassociated actual arguments > as absent if passed to nonallocatable/nonpointer dummy array arguments. > (gfc_build_cond_assign): Change to assume a Boolean expr not a pointer. > (gfc_omp_finish_clause, gfc_trans_omp_clauses): Assign NULL to generated > array-data variable if the argument is absent. Simplify code as > 'present' is now a Boolean expression. >=20 > libgomp/ > * testsuite/libgomp.fortran/optional-map.f90: Add test for > unallocated/disassociated actual arguments to nonallocatable/nonpointer > dummy arguments; those are/shall be regarded as absent arguments. > * testsuite/libgomp.fortran/use_device_ptr-optional-2.f90: Ditto. > * testsuite/libgomp.fortran/use_device_ptr-optional-3.f90: New. Ok. Sorry for the delay. Jakub