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