[Bug fortran/24755] New: internal compiler error with statement function

[tdeutsch at cea dot fr]

internal compiler error 

subroutine nhatgrid()

 implicit none

 integer :: lambda
 real(kind=8) :: arg,sigma
 real(kind=8) :: dshpfunc

 dshpfunc(arg)=-lambda/sigma*(arg/sigma)**(lambda-1)*exp(-(arg/sigma)**lambda)

end subroutine nhatgrid


-- 
           Summary: internal compiler error with statement function
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: critical
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tdeutsch at cea dot fr


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