[Bug fortran/25013] New: internal compiler error

["iguchi at coral dot t dot u-tokyo dot ac dot jp" <gcc-bugzilla at gcc dot gnu dot org>]

When I compiled the following program with gfortran, internal compiler
error occured.

I think the right behavior is that compilation is completed, and 
printed "what is happen?" to standard output in execution.

module ucharfunc
contains
  function foo(a) result(oresult)
    character(len=*) :: a
    character(len=len(a)) :: oresult

    oresult = a
  end function
end module

program charfunctest
  use ucharfunc
  implicit none

  print *, foo("what is happen?")
end program


-- 
           Summary: internal compiler error
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: iguchi at coral dot t dot u-tokyo dot ac dot jp


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