------- Comment #2 from janus at gcc dot gnu dot org 2009-06-17 08:33 -------
The test case is also rejected without being inside a module:
contains
function f()
intrinsic :: sin
procedure(sin), pointer :: f
f => sin
end function f
end
However, if the 'contains' is removed, it is accepted.
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2009-06-17 08:33:58
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40451
