1! { dg-do compile }
2!
3! PR fortran/43303
4!
5! Contributed by Dennis Wassel
6!
7PROGRAM c_assoc
8  use iso_c_binding
9  type(c_ptr) :: x
10  x = c_null_ptr
11  print *, C_ASSOCIATED(x) ! <<< was ICEing here
12  if (C_ASSOCIATED(x)) call abort ()
13END PROGRAM c_assoc
14