[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 #14 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Created attachment 61307
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=61307&action=edit
Prelimnary patch to fix this.

With the attached patch this case compiles and runs.

$ cat z2.f90 
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
$ gfc z2.f90
$ ./a.out 
 F
 F
$ 

It is regression testing.