14 lines
377 B
Fortran
14 lines
377 B
Fortran
! { 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
|