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 in compiling
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=25012
