------- Comment #5 from pault at gcc dot gnu dot org 2006-11-14 21:48 ------- It gets better and better...
module gfcbug45 implicit none contains subroutine foo integer :: i real :: a real, parameter :: eps(1) = (/ 1 /) i = 1 a = mysum (eps(i:i) * eps) end subroutine foo real function mysum (x) real :: x(:) mysum = sum(x) end function mysum end module gfcbug45 works just fine. Paul -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29821