Regression: ICE with do concurrent and internal subprogram

[Damian Rouson]

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