gcc/testsuite/gfortran.dg/proc_ptr_comp_21.f90

   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
  20 contains
  21
  22   elemental subroutine op_assign (str, ch) ! { dg-warning "Extension: Internal procedure" }
  23     type(nf_t), intent(out) :: str
  24     character(len=*), intent(in) :: ch
  25   end subroutine
  26
  27 end
  28