2 ! Checks the LOGICAL version of dot_product
4 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
6 logical :: l1(4) = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./)
7 logical :: l2(4) = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./)
8 if (dot_product (l1, l2)) call abort ()
10 if (.not.dot_product (l1, l2)) call abort ()