------- Comment #8 from janus at gcc dot gnu dot org 2008-06-04 23:37 -------
This further reduced test case gives a different ICE:
abstract interface
function abs_fun(x)
implicit none
integer :: x(:)
character(size(x)) abs_fun
end function
end interface
procedure(abs_fun) :: p
integer :: i(3) = (/1,2,3/)
print *,p(i)
end
internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.c:926
The reason for this seems to be that the symbol "x" is missing a backend_decl.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36322
