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