blob: dbe52bb14a13f928024cd8c2b34335758ed3921c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do run }
! 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
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
|
