<Example Program>

	Program not_example     Logical :: opval(2) = (/ .true.,.false. /)     Print 1,'Logical Operator Truth Table','.NOT.' 1  Format (1x,A,/,/,1X,' Op',T8,A)     Do i=1,2         Print 2,opval(i),.Not.opval(i) 2      Format(T4,L1,T9,L1)     End Do End Program
	Execution Results   Logical Operator Truth Table   Op     .NOT.     T      F     F      T