http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55887
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2013-01-26
CC| |janus at gcc dot gnu.org
Ever Confirmed|0 |1
--- Comment #2 from janus at gcc dot gnu.org 2013-01-26 21:10:15 UTC ---
The type(t) version ...
type t
end type t
type(t), target :: x
type(t), pointer :: ptr2 => x
if (.not. same_type_as (ptr2, x)) call abort()
end
... is rejected by 4.7 with (note the wrong locus):
type t
1
Error: Pointer initialization target at (1) must have the SAVE attribute
but trunk gives yet another ICE:
internal compiler error: in symtab_get_node, at symtab.c:277
I think the error message of 4.7 is not triggered on trunk, because 'x' gets
the SAVE_IMPLICIT attribute. The ICE goes away when giving 'x' the SAVE
attribute explicitly.
