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