| ! { 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 |