Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
logical_data_1.f90
blob: b9190d214b0f7d927a91a3575eb1c703ea1ea8ab [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR19589
!
Logical
objects
/
values
with
differing type kinds were being rejected
in
!
data statements
.
program logical_data_1
logical
(
kind
=
4
)
::
a
logical
(
kind
=
8
)
::
b
data a
,
b
/.
true
.,
.
false
./
end
program