F90: Tabela verdade do E

PROGRAM aula
	LOGICAL :: l1, l2
	l1=.TRUE.
	l2=.TRUE.
	WRITE (*,*) "T e T =", l1 .AND. l2 
	WRITE (*,*) "T e F =", l1 .AND. .NOT. l2
	WRITE (*,*) "F e T =", .NOT. l1 .AND. l2
	WRITE (*,*) "F e F =", .NOT. l1 .AND. .NOT. l2
END PROGRAM aula