1! { dg-do compile }
2! PR19589
3! Logical objects/values with differing type kinds were being rejected in
4! data statements.
5program logical_data_1
6  logical(kind=4) :: a
7  logical(kind=8) :: b
8  data a, b /.true., .false./
9end program
10