Fortran: flag formal argument before resolving an array spec [PR98016].
authorPaul Thomas <pault@gcc.gnu.org>
Sat, 5 Dec 2020 14:14:19 +0000 (14:14 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Sat, 5 Dec 2020 14:14:19 +0000 (14:14 +0000)
commit7ae210d5db5eb96989b2f639e65678b5597e61f0
treec9c644de187e048169a2817be36d4bdc6c4e9668
parent1352bc88a0525743c952197fb2db6e4f8c091cde
Fortran: flag formal argument before resolving an array spec [PR98016].

2020-12-05  Paul Thomas  <pault@gcc.gnu.org>

gcc/fortran
PR fortran/98016
* resolve.c (resolve_symbol): Set formal_arg_flag before
resolving an array spec and restore value afterwards.

gcc/testsuite/
PR fortran/98016
* gfortran.dg/pr98016.f90: New test.
gcc/fortran/resolve.c
gcc/testsuite/gfortran.dg/pr98016.f90 [new file with mode: 0644]