[Bug fortran/23371] New: internal compiler error when missing a module procedure

[dngrimwood at optusnet dot com dot au]

The following code is not standard Fortran, but generates an internal compiler
error. "gfortran-4.0 -c a.F90".  I stumbled across it while trying to reduce the
code to reproduce another bug.  Version is Debian 4.0.1-2.

Regards,
Daniel.



module SYSTEM_MODULE

   implicit none

   interface index_for_routine_
      module procedure index_for_routine
   end interface

   interface unit_conversion_factor_
      module procedure unit_conversion_factor
   end interface

contains

   pure function unit_conversion_factor(self) result(res)
      integer, intent(in) :: self
      integer(4) :: res
      res = 1
   end function

   pure subroutine expand_time_stacks(self,routine_name)
     integer, intent(inout) :: self
     character(len=*), intent(in) :: routine_name
     integer(4) :: index1
     index1 = index_for_routine_(self,routine_name)
   end subroutine

end module

-- 
           Summary: internal compiler error when missing a module procedure
           Product: gcc
           Version: 4.0.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dngrimwood at optusnet dot com dot au
                CC: gcc-bugs at gcc dot gnu dot org


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