PROGRAM Logical
!-----------------------------------------------------------------------
! The purpose of this program is to test acceptable input by the user
! for three logical variables.
! 
!    A, B, C        : Logical variables to be entered by user.
!
! Input:  The logical variables A, B, and C
! Output: The value of the three logical variables A,B, and C entered
!         by the user.
!-----------------------------------------------------------------------

  IMPLICIT NONE
  LOGICAL A, B, C

  ! Ask user to enter values 
  PRINT *, "Enter the values of true or false for three variables " // & 
  "separated by commas or spaces (e.g., True, False, True):"
  READ *, A, B, C

  ! Output values entered by the user
  Print *
  Print *, "A = ",A
  Print *, "B = ",B
  Print *, "C = ",C

END PROGRAM Logical