------- 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