1! { dg-do run }
2! PR 36590, PR 36681
3program test
4 logical(kind=1),parameter :: t=.true.,f=.false.
5 logical(kind=1),dimension(9) :: hexa,hexb
6 data hexa/f,f,t,t,f,f,f,t,f/,hexb/f,t,f,f,f,t,t,f,f/
7 isum=count(hexa(1:9).eqv.hexb(1:9))
8end program
9