1! { dg-do run }
2program L
3   if (and(.TRUE._1, .TRUE._1) .neqv. .true.) STOP 1
4   if (or(.TRUE._1, .TRUE._1) .neqv. .true.) STOP 2
5   if (xor(.TRUE._1, .TRUE._1) .neqv. .false.) STOP 3
6end program L
7
8