[Bug fortran/124652] passing a procedure pointer to c_funloc gives incorrect result

[anlauf at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124652

--- Comment #7 from anlauf at gcc dot gnu.org ---
In the minimal testcase, replacing the line

    procedure(compute_interface), pointer, intent(out) :: fptr_out

by

    procedure(compute_interface), pointer              :: fptr_out

makes the ICE go away.


Looking at the dump-tree, I see:

  {
    void * D.4691;

    D.4691 = (void *) square_it;
    c_address = (void (*<T6f>) (void)) D.4691;
  }
  fptr = (real(kind=4) (*<T68d>) (real(kind=4))) c_address;
  *fptr = {CLOBBER};
  round_trip_conversion_proc (&fptr);

Is the CLOBBER correct?