[Bug fortran/82009] [F08] ICE with block construct

[kargl at gcc dot gnu.org]

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

--- Comment #3 from kargl at gcc dot gnu.org ---
(In reply to kargl from comment #2)
> (In reply to janus from comment #1)
> > Confirmed. ICEs with every gfortran version I tried, from 4.7 up to trunk.
> > 
> > Slight reduction:
> > 
> > MODULE csx
> >   IMPLICIT NONE
> > CONTAINS
> >   SUBROUTINE csr
> >     block
> >     end block
> >   END
> >   SUBROUTINE csc
> >     WRITE(*,*) 'An*x: t'
> >     block
> >       integer, dimension(1), parameter :: idxs=[1]
> >       print *, idxs(1)
> >     end block
> >   END
> > END
> 
> The above code compiles for me on trunk (gcc version 9.0.0 20180609)

Original testcase still causes an ICE.