Reported by Andrew Benson at http://gcc.gnu.org/ml/fortran/2010-08/msg00462.html:
module Merger_Trees private public :: mergerTree type mergerTree contains procedure :: getNode => Tree_Node_Get end type mergerTree contains function Tree_Node_Get(thisTree,nodeIndex) result(foundNode) implicit none class(mergerTree), intent(inout) :: thisTree integer, intent(in) :: nodeIndex integer, pointer :: foundNode return end function Tree_Node_Get end module Merger_Trees gives: <During initialization> Error: Pointer initialization target at (1) must have the SAVE attribute -- Summary: [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP Product: gcc Version: 4.6.0 Status: UNCONFIRMED Keywords: rejects-valid Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: janus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45456