gcc/testsuite/gfortran.dg/pr88611.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdefault-integer-8 -fno-tree-forwprop -O3 -fno-tree-ccp" }
   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.
   6 program 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
  14 end program pr82869_8