1! { dg-do compile } 2! 3! PR 41242: [4.5 Regression] PPC call rejected (related to user-defined assignment?) 4! 5! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de> 6! Modified by Janus Weil <janus@gcc.gnu.org> 7 8 type :: nf_t 9 procedure(integer), nopass, pointer :: get_n_in 10 end type 11 12 interface assignment(=) 13 procedure op_assign 14 end interface 15 16 type(nf_t) :: prc_lib 17 prc_lib = "foobar" 18 print *, prc_lib%get_n_in() 19 20contains 21 22 elemental subroutine op_assign (str, ch) 23 type(nf_t), intent(out) :: str 24 character(len=*), intent(in) :: ch 25 end subroutine 26 27end 28 29