[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 #13 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:cb3c3d63315ceb4dc262e5efb83b42c73c43387d

commit r11-2923-gcb3c3d63315ceb4dc262e5efb83b42c73c43387d
Author: Tobias Burnus <tobias@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.