! { dg-do run } | |
! Checks the LOGICAL version of dot_product | |
! | |
! Contributed by Paul Thomas <pault@gcc.gnu.org> | |
! | |
logical :: l1(4) = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./) | |
logical :: l2(4) = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./) | |
if (dot_product (l1, l2)) STOP 1 | |
l2 = .TRUE. | |
if (.not.dot_product (l1, l2)) STOP 2 | |
end |