Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / logical_data_1.f90
blobb9190d214b0f7d927a91a3575eb1c703ea1ea8ab
1 ! { dg-do compile }
2 ! PR19589
3 ! Logical objects/values with differing type kinds were being rejected in
4 ! data statements.
5 program logical_data_1
6 logical(kind=4) :: a
7 logical(kind=8) :: b
8 data a, b /.true., .false./
9 end program