>From Richard Maine, editor of the F2003 standard
module fdas_command
contains
function lower_case (string) result(result)
character*(*), intent(in) :: string
character*(len(string)) :: result
result = string
return
end function lower_case
subroutine ask_help (topic)
character*(*), intent(in) :: topic
character :: topic_tmp*16
topic_tmp = lower_case(topic)
return
end subroutine ask_help
end module fdas_command
bug3.f90: In function 'ask_help':
bug3.f90:3: internal compiler error: in gfc_conv_function_call, at
fortran/trans-expr.c:1104
This may be related to one of the other CHARACTER*(*) bugs, but I haven't
found it.
--
Summary: Function call with character*(*) arg is broken
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: sgk at troutmask dot apl dot washington dot edu
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=19927
