gcc/testsuite/gfortran.dg/logical_temp_io.f90

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