bit3.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 10 行

      logical l
      l =.true.
      print '(1x,z8)', l
      l =.false.
      print '(1x,z8)', l
      print *, .TRUE. .NEQV. .TRUE., .TRUE. .XOR. .TRUE.
      print *, .TRUE. .NEQV. .FALSE., .TRUE. .XOR. .FALSE.
      print *, .FALSE. .NEQV. .FALSE., .FALSE. .XOR. .FALSE.
      end