character (6) :: c
c = f1 ()
if (c .ne. 'abcdef') call abort
contains
function f1 ()
character (*) :: f1
f1 = 'abcdef'
end function f1
end
causes ICE, while it should be diagnosed as error.
--
Summary: ICE on asterisk char-len-param-value on result
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Keywords: ice-on-invalid-code
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jakub at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24705