<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 |
|
![]() Logical Operator Truth Table Op .NOT. T F F T |