3 ! A temp variable of type logical was incorrectly transferred
4 ! to the I/O library as a logical type of a different kind.
6 use, intrinsic :: iso_c_binding
7 type(c_ptr
) :: p
= c_null_ptr
9 write (s
, *) c_associated(p
), c_associated(c_null_ptr
)