Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/logical_temp_io_kind8.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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