1! { dg-do run } 2! Checks the LOGICAL version of dot_product 3! 4! Contributed by Paul Thomas <pault@gcc.gnu.org> 5! 6 logical :: l1(4) = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./) 7 logical :: l2(4) = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./) 8 if (dot_product (l1, l2)) call abort () 9 l2 = .TRUE. 10 if (.not.dot_product (l1, l2)) call abort () 11end