Regression: ICE with do concurrent and internal subprogram

[Janus Weil]

Confirmed. Can you file a PR?

Thanks,
Janus

2014/1/6 Damian Rouson <rouson@stanford.edu>:
> The current trunk gives an ICE when a procedure contains a “do concurrent” and an internal subprogram:
>
> $ cat doconcurrent.f90
> subroutine ice_with_gfortran49()
>   integer i
>   do concurrent (i=1:2)
>   end do
> contains
>   subroutine f()
>   end subroutine
> end subroutine
> $ gfortran -c doconcurrent.f90
> doconcurrent.f90: In function 'ice_with_gfortran49':
> doconcurrent.f90:1:0: internal compiler error: Segmentation fault: 11
>  subroutine ice_with_gfortran49()
>  ^
>
> doconcurrent.f90:1:0: internal compiler error: Abort trap: 6
> gfortran: internal compiler error: Abort trap: 6 (program f951)
> Abort trap: 6
> localhost:gnu rouson$ gfortran --version
> GNU Fortran (MacPorts gcc49 4.9-20140105_0) 4.9.0 20140105 (experimental)
>
> ————
>
> gfortran 4.8.2 compiles the above code without error.
>
> Damian
>