--- Comment #1 from burnus at gcc dot gnu dot org 2009-06-15 21:10 ---
Post script: With your current patch, the error message is:
Error: Interface mismatch in procedure pointer assignment at (1): 'sin' has the
wrong number of arguments
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?i
--- 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