! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Exercises 3.4, Number 4.
  program D4X04
    implicit none
    logical, parameter :: L1 = .true., L2 = .false., L3 = .true., L4 = .false.
! start program D4X04
    write (unit = *, fmt = *) L1 .eqv. L3, L1 .eqv. L4, L2 .eqv. L3, L2 .eqv. L4
    write (unit = *, fmt = *) L1 .neqv. L3, L1 .neqv. L4, L2 .neqv. L3, L2 .neqv. L4
    stop
  end program D4X04

