On Mon, Mar 24, 2025 at 09:40:38PM +0100, Thomas Koenig wrote:
>
> Regression-tested. Again no test case because I don't know
> how. During testing, I also found that vtabs were dumped,
> this is also corrected.
>
> OK for trunk?
Thanks for working on this, but ...
>
> /* This section deals with dumping the global symbol tree. */
> diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
> index 34c8210f66a..efc059908f7 100644
> --- a/gcc/fortran/resolve.cc
> +++ b/gcc/fortran/resolve.cc
> @@ -12187,6 +12187,34 @@ caf_possible_reallocate (gfc_expr *e)
> return last_arr_ref && last_arr_ref->u.ar.type == AR_FULL;
> }
>
> +/* Handle C_FUNPTR assignments, for generating C prototypes and for warning
> if
> + pointers are assigned to procedures with different interfaces. */
> +
> +static void
> +check_c_funptr_assign_interface (gfc_expr *lhs, gfc_expr *rhs)
> +{
> +
> + fprintf (stderr,"%p %p\n", (void *) lhs, (void *) rhs);
This looks like a debugging printf() statement. If it is
meant to be informative, I would expect gfc_warning( ) or
gfc_error().
--
Steve
