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