[Bug fortran/94672] [10/11 Regression] gfortran/OpenMP chokes on PRESENT(array) despite of SHARED(array): Error: ‘array’ not specified in enclosing ‘parallel’

[cvs-commit at gcc dot gnu.org]

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

--- Comment #14 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-10 branch has been updated by Tobias Burnus
<bur...@gcc.gnu.org>:

https://gcc.gnu.org/g:ac4f77d2563828324bb6a4f08b52aae3410702ea

commit r10-8691-gac4f77d2563828324bb6a4f08b52aae3410702ea
Author: Tobias Burnus <tob...@codesourcery.com>
Date:   Fri Aug 28 13:54:10 2020 +0200

    Fortran: Fix absent-optional handling for nondescriptor arrays (PR94672)

    gcc/fortran/ChangeLog:

            PR fortran/94672
            * trans-array.c (gfc_trans_g77_array): Check against the parm decl
and
            set the nonparm decl used for the is-present check to NULL if
absent.

    gcc/testsuite/ChangeLog:

            PR fortran/94672
            * gfortran.dg/optional_assumed_charlen_2.f90: New test.

    (cherry picked from commit cb3c3d63315ceb4dc262e5efb83b42c73c43387d)