http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56386
Tobias Burnus <burnus at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |rejects-valid
Status|UNCONFIRMED |NEW
Last reconfirmed| |2013-04-16
CC| |burnus at gcc dot gnu.org
Ever Confirmed|0 |1
--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2013-04-16
17:17:52 UTC ---
Related test case by the bug reporterm
https://groups.google.com/forum/?fromgroups=#!topic/comp.lang.fortran/UvBX1kfuFqs
This time rejecting the code instead of ICEing:
print *,x%i
1
Error: Symbol 'x' at (1) has no IMPLICIT type
program p
type t
integer :: i = 0
end type
associate (x=>f())
print *,x%i
end associate
contains
function f()
type(t) f
f%i = 5
end function
end program
