blob: 75f842cc3126385b73a6a369b37a09dc16c5e525 [file] [log] [blame]
! { dg-do run }
program L
if (and(.TRUE._1, .TRUE._1) .neqv. .true.) STOP 1
if (or(.TRUE._1, .TRUE._1) .neqv. .true.) STOP 2
if (xor(.TRUE._1, .TRUE._1) .neqv. .false.) STOP 3
end program L