[Bug fortran/29821] ICE in gfc_typenode_for_spec, at fortran/trans-types.c:666ans-types.c:666

[pault at gcc dot gnu dot org]

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