summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/and_or_xor.f90
blob: 412008b77bfeccb796dd4762d8021b6c0ace4a79 (plain)
1
2
3
4
5
6
7
! { dg-do run }
program L
   if (and(.TRUE._1, .TRUE._1) .neqv. .true.) call abort
   if (or(.TRUE._1, .TRUE._1) .neqv. .true.) call abort
   if (xor(.TRUE._1, .TRUE._1) .neqv. .false.) call abort
end program L