(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
and_or_xor.f90
! { 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