10 lines
234 B
Fortran
10 lines
234 B
Fortran
|
! { 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
|