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