blob: 3c6d1c0073f8159f3050412b4f5a4869c3a6e4a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { 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
|
