From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id EDEDC3840017; Tue, 15 Jun 2021 14:07:29 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org EDEDC3840017
From: "cvs-commit at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/92568] OpenMP 5 - implicit mapping of scalar with
 TARGET/ALLOCATABLE/POINTER attribute: shall be 'tofrom' mapped
Date: Tue, 15 Jun 2021 14:07:29 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 10.0
X-Bugzilla-Keywords: openmp
X-Bugzilla-Severity: normal
X-Bugzilla-Who: cvs-commit at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-92568-4-TjVRwqrH0k@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-92568-4@http.gcc.gnu.org/bugzilla/>
References: <bug-92568-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Tue, 15 Jun 2021 14:07:30 -0000

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D92568

--- Comment #4 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Tobias Burnus <burnus@gcc.gnu.org>:

https://gcc.gnu.org/g:1de31913d20a467b78904c0e96efd5fbd6facd2c

commit r12-1482-g1de31913d20a467b78904c0e96efd5fbd6facd2c
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Tue Jun 15 16:06:38 2021 +0200

    Fortran/OpenMP: Extend defaultmap clause for OpenMP 5 [PR92568]

            PR fortran/92568

    gcc/fortran/ChangeLog:

            * dump-parse-tree.c (show_omp_clauses): Update for defaultmap.
            * f95-lang.c (LANG_HOOKS_OMP_ALLOCATABLE_P,
            LANG_HOOKS_OMP_SCALAR_TARGET_P): New.
            * gfortran.h (enum gfc_omp_defaultmap,
            enum gfc_omp_defaultmap_category): New.
            * openmp.c (gfc_match_omp_clauses): Update defaultmap matching.
            * trans-decl.c (gfc_finish_decl_attrs): Set GFC_DECL_SCALAR_TAR=
GET.
            * trans-openmp.c (gfc_omp_allocatable_p, gfc_omp_scalar_target_=
p):
New.
            (gfc_omp_scalar_p): Take 'ptr_alloc_ok' argument.
            (gfc_trans_omp_clauses, gfc_split_omp_clauses): Update for
            defaultmap changes.
            * trans.h (gfc_omp_scalar_p): Update prototype.
            (gfc_omp_allocatable_p, gfc_omp_scalar_target_p): New.
            (struct lang_decl): Add scalar_target.
            (GFC_DECL_SCALAR_TARGET, GFC_DECL_GET_SCALAR_TARGET): New.

    gcc/ChangeLog:

            * gimplify.c (enum gimplify_defaultmap_kind): Add
GDMK_SCALAR_TARGET.
            (struct gimplify_omp_ctx): Extend defaultmap array by one.
            (new_omp_context): Init defaultmap[GDMK_SCALAR_TARGET].
            (omp_notice_variable): Update type classification for Fortran.
            (gimplify_scan_omp_clauses): Update calls for new argument; han=
dle
            GDMK_SCALAR_TARGET; for Fortran, GDMK_POINTER avoid
GOVD_MAP_0LEN_ARRAY.
            * langhooks-def.h (lhd_omp_scalar_p): Add 'ptr_ok' argument.
            * langhooks.c (lhd_omp_scalar_p): Likewise.
            (LANG_HOOKS_OMP_ALLOCATABLE_P, LANG_HOOKS_OMP_SCALAR_TARGET_P):
New.
            (LANG_HOOKS_DECLS): Add them.
            * langhooks.h (struct lang_hooks_for_decls): Add new hooks, upd=
ate
            omp_scalar_p pointer type to include the new bool argument.

    libgomp/ChangeLog:

            * testsuite/libgomp.fortran/defaultmap-8.f90: New test.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/gomp/pr99928-1.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-2.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-3.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-4.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-5.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-6.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/pr99928-8.f90: Uncomment 'defaultmap(none)'.
            * gfortran.dg/gomp/defaultmap-1.f90: New test.
            * gfortran.dg/gomp/defaultmap-2.f90: New test.
            * gfortran.dg/gomp/defaultmap-3.f90: New test.
            * gfortran.dg/gomp/defaultmap-4.f90: New test.
            * gfortran.dg/gomp/defaultmap-5.f90: New test.
            * gfortran.dg/gomp/defaultmap-6.f90: New test.
            * gfortran.dg/gomp/defaultmap-7.f90: New test.=