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