!
      PROGRAM P34
!
!
!     Reading and testing LOGICAL variables
!
!
      IMPLICIT NONE
      LOGICAL :: SINGLE
      CHARACTER (LEN=15) :: NAME
      INTEGER :: I,J,MARRGS
!
      PRINT *, 'This is Program >> P34  - Testing with LOGICAL data'
!
!     READ DATA
!
      READ *,I
!
L1:   DO J=1,I
          READ * ,NAME,SINGLE
          IF(NAME  ==  'DONE')EXIT  ! Leave the DO loop
          IF(SINGLE)THEN
             PRINT * ,NAME,'IS SINGLE'
          ELSE
             READ * ,MARRGS
             PRINT * ,NAME,'WAS MARRIED',  &
                      MARRGS,'TIMES'          ! A continued line
          END IF
      END DO L1   ! The EXIT brings control to next statement
      STOP
      END PROGRAM P34