<Example Program>

	Program eqv_example     Logical :: op1val(4) = (/ .true.,.true.,.false.,.false. /)     Logical :: op2val(4) = (/ .true.,.false.,.true.,.false. /)     Print 1,'Logical Operator Truth Table','.EQV.' 1  Format (1x,A,/,/,1X,'Op1',T8,'Op2',T14,A)     Do i=1,4         Print 2,op1val(i),op2val(i),op1val(i).Eqv.op2val(i) 2      Format(T4,L1,T9,L1,T15,L1)     End Do End Program
	Execution Results   Logical Operator Truth Table   Op1     Op2     .EQV.       T       T       T       T       F       F       F       T       F       F       F       T