[Bug fortran/59706] New: Regression: ICE with do concurrent and internal subprogram

[rouson at stanford dot edu]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59706

            Bug ID: 59706
           Summary: Regression: ICE with do concurrent and internal
                    subprogram
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: rouson at stanford dot 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