------- Comment #9 from pault at gcc dot gnu dot org  2009-09-10 16:21 -------
(In reply to comment #8)

Janus,

> -      resolve_code (code, ns);
>        return true;

I had wondered about the function of that resolve_code.  If it can be safely
removed, do it.  Otherwise another variant of my experiment in comment #3 is to
remove the codelet;

+      if (gfc_is_proc_ptr_comp (e, &comp)
+           && (resolve_expr_ppc (e) == SUCCESS))
+       return SUCCESS;

Into resolve_function, just before the offending error.

All that said, I would like to understand why it is that the number of errors
that you get is equal to the number of interface assignments before the ppc
evaluation. That is:

    prc_id = "foobar"
    prc_id = "foobar"
    prc_id = "foobar"
    prc_id = "foobar"
    n_in  = prc_lib% get_n_in  (2)

produces the error 4 times!  I suspect (unless you can argue otherwise :-) )
that there is something really bad going on that we are just papering over

Paul


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41242

Reply via email to