------- 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

Reply via email to