2 ! { dg-options "-std=legacy" }
4 ! Test logical .XOR. operator.
9 logical :: in1
, in2
, neqv_out
, lxor_out
, truth_table(2)
10 integer :: i
, j
, ixor_out
, ieor_out
12 truth_table(1) = .true
.
13 truth_table(2) = .false
.
19 ! make sure logical xor works
20 neqv_out
= in1
.neqv
. in2
21 lxor_out
= in1
.xor
. in2
23 if ( neqv_out
.neqv
. lxor_out
) then
24 print *, "(",in1
,in2
,") .neqv.: ",neqv_out
," .xor.: ",lxor_out
28 ! make sure we didn't break xor() intrinsic
29 ixor_out
= xor(i
*7, j
*5)
30 ieor_out
= ieor(i
*7, j
*5)
32 if ( ixor_out
.ne
. ieor_out
) then
33 print *, "(",in1
,in2
,") ieor(): ",ieor_out
," xor(): ",ixor_out