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