------- Comment #7 from janus at gcc dot gnu dot org 2009-09-10 12:57 -------
This reduced test case shows the same weird behavior as the original:
type :: nf_t
procedure(integer), nopass, pointer :: get_n_in
end type
interface assignment(=)
procedure op_assign
end interface
type(nf_t) :: prc_lib
prc_lib = "foobar"
print *, prc_lib%get_n_in()
contains
elemental subroutine op_assign (str, ch)
type(nf_t), intent(out) :: str
character(len=*), intent(in) :: ch
end subroutine
end
Looking into it ...
--
janus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Summary|[4.5 Regression] procedure |[4.5 Regression] PPC call
|pointer rejected (related to|rejected (related to user-
|user-defined assignment?) |defined assignment?)
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41242
