PROGRAM Mantiksal
!--------------------------------------------------------
! 05prg01.f95
! Mantıksal işlemler
!--------------------------------------------------------
LOGICAL :: L1, L2, L3, L4, L5, L6, L7, L8, L9
INTEGER :: x = 1, y = 2;


    L1 = .TRUE.
    L2 = .FALSE.
    L3 = L1 .OR. L2

    L4 = 9 > 4
    L5 = x < 3
    L6 = x >= y .AND. y > 0

    L7 = .NOT. L4
    L8 = L1 .EQV. L5
    L9 = L4 .NEQV. L5

    PRINT *,"L1 L2 L3 : ", L1, L2, L3
    PRINT *,"L4 L5 L6 : ", L4, L5, L6
    PRINT *,"L7 L8 L9 : ", L7, L8, L9

END PROGRAM