character for logic

If I have:

Program DW
  implicit none
  character(len=50) :: C
  logical (kind=1) :: L

  C="4 .GT. 3 .And. 5 .EQ. 2"
  L=C      ! I know that this is impossible
  If (L .EQV. .True.) Then  ! <--- How can I do This?
    Write(*,*) "This is True"
  Else
    Write(*,*) "This isn't True"
  EndIf

End Program DW