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