[Bug fortran/66495] New: [5 Regression] Issue with same name for embedded function

["gerhard.steinmetz.fortran@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 66495
           Summary: [5 Regression] Issue with same name for embedded
                    function
           Product: gcc
           Version: 5.1.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Another test case :
   integer function f()
   contains
      integer function f()
      end
   end

yields (gfortran 5.1.1) :
f951: internal compiler error: Segmentation fault

---

But prints a regular error message with gfortran 4.9.0, 4.8.3 :

$ gfortran -c -g -O0 -Wall -fcheck=all -fno-frontend-optimize s.f90
s.f90:3.21:

   integer function f(y)
                     1
s.f90:1.18:

integer function f(x)
                  2
Error: Procedure 'f' at (1) has an explicit interface and must not have
attributes declared at (2)
s.f90:3.24:

   integer function f(y)
                        1
Error: Symbol 'f' at (1) already has basic type of INTEGER