[Bug fortran/124208] [16 Regression] ice in gfc_resolve_forall, at fortran/resolve.cc:12703

[kargl at gcc dot gnu.org]

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

Steve Kargl <kargl at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #4 from Steve Kargl <kargl at gcc dot gnu.org> ---
(In reply to David Binderman from comment #0)
> For this F90 code:
> 
> integer :: arr(4)
> do concurrent (i=1:5)
> associate (a=>i)
> forall( a=1:10,arr(a)==0)
> end forall
> end associate
> end do
> end
> 
> from the Fujitsu test suite at
> 

What is this code suppose to do?  As written, it is invalid Fortran.