This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/29821] ICE in gfc_typenode_for_spec, at fortran/trans-types.c:666ans-types.c:666
- From: "pault at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 14 Nov 2006 21:48:22 -0000
- Subject: [Bug fortran/29821] ICE in gfc_typenode_for_spec, at fortran/trans-types.c:666ans-types.c:666
- References: <bug-29821-6318@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla 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