OR (The GNU Fortran Compiler) (original) (raw)

PROGRAM test_or LOGICAL :: T = .TRUE., F = .FALSE. INTEGER :: a, b DATA a / Z'F' /, b / Z'3' /

WRITE (,) OR(T, T), OR(T, F), OR(F, T), OR(F, F) WRITE (,) OR(a, b) END PROGRAM