Subversion Repositories openrisc_me

! { dg-do compile }

!

! PR 41242: [4.5 Regression] PPC call rejected (related to user-defined assignment?)

!

! Original test case by Juergen Reuter 

! Modified by Janus Weil 

  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