+2009-09-11 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/41242
+ * resolve.c (resolve_ordinary_assign): Don't call resolve_code,
+ to avoid that subsequent codes are resolved more than once.
+ (resolve_code): Make sure that type-bound assignment operators are
+ resolved correctly.
+
+
2009-09-10 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/31292
&& (lhs->symtree->n.sym == (*rhsptr)->symtree->n.sym))
*rhsptr = gfc_get_parentheses (*rhsptr);
- resolve_code (code, ns);
return true;
}
break;
if (resolve_ordinary_assign (code, ns))
- goto call;
+ {
+ if (code->op == EXEC_COMPCALL)
+ goto compcall;
+ else
+ goto call;
+ }
break;
break;
case EXEC_COMPCALL:
+ compcall:
resolve_typebound_call (code);
break;
+2009-09-11 Janus Weil <janus@gcc.gnu.org>
+
+ PR fortran/41242
+ * gfortran.dg/proc_ptr_comp_21.f90: New.
+
2009-09-10 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/31292
--- /dev/null
+! { dg-do compile }
+!
+! PR 41242: [4.5 Regression] PPC call rejected (related to user-defined assignment?)
+!
+! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de>
+! Modified by Janus Weil <janus@gcc.gnu.org>
+
+ 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
+