1! { dg-do run } 2! { dg-options "-fdefault-integer-8" } 3! PR 82869 4! A temp variable of type logical was incorrectly transferred 5! to the I/O library as a logical type of a different kind. 6program pr82869_8 7 use, intrinsic :: iso_c_binding 8 type(c_ptr) :: p = c_null_ptr 9 character(len=4) :: s 10 write (s, *) c_associated(p), c_associated(c_null_ptr) 11 if (s /= ' F F') then 12 STOP 1 13 end if 14end program pr82869_8 15