＜.AND. Example Program＞

Program and_example
  Logical :: op1val(4) = (/ .true.,.true.,.false.,.false. /)
  Logical :: op2val(4) = (/ .true.,.false.,.true.,.false. /)
  Print 1,'Logical Operator Truth Table','.AND.'
1 Format (1x,A,/,/,1X,'Op1',T8,'Op2',T14,A)
  Do i=1,4
    Print 2,op1val(i),op2val(i),op1val(i).And.op2val(i)
2   Format(T4,L1,T9,L1,T15,L1)
  End Do
End Program

---

■ Execution Results

 Logical Operator Truth Table

 Op1   Op2   .AND.
   T    T     T
   T    F     F
   F    T     F
   F    F     F