1 logical :: l1(4) 2 logical :: l2(4) 3 l1 = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./) 4 l2 = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./) 5 if (dot_product (l1, l2)) STOP 1 6 l2 = .TRUE. 7 if (.not.dot_product (l1, l2)) STOP 2 8end 9 10