[Bug fortran/120049] ICE when using IS_C_ASSOCIATED ()

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

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

--- Comment #11 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to kargls from comment #8)
> program tests_gtk_sup
>    use gtk_sup
>    implicit none
>    type(c_ptr), target :: val
>    print *, c_associated(val, c_loc(val))
>    print *, c_associated(c_loc(val), val)
> end program tests_gtk_sup
> 
> fails with
> 
> % gfcx -o y g.f90 -fdump-tree-original && ./y
> g.f90:10:25:
>    10 |    print *, c_associated(c_loc(val), val)
>       |                         1
> Error: Argument C_PTR_1 at (1) to C_ASSOCIATED shall have the type
> TYPE(C_PTR) or TYPE(C_FUNPTR)
> 
Isn't c_loc(val) an address and therefore not a c_ptr and not a c_funptr?