The following program is rejected with: f => sin 1 Error: Interfaces don't match in procedure pointer assignment at (1)
However, if one removes the "module m; contains" it is accepted module m contains function f() intrinsic :: sin procedure(sin), pointer :: f f => sin end function f end module m -- Summary: procedure-pointer assignment rejected Product: gcc Version: 4.5.0 Status: UNCONFIRMED Keywords: rejects-valid Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40451