blob: e35595c430f93985fbdaaa64573e8e6c2dd1d312 (
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)) call abort ()
l2 = .TRUE.
if (.not.dot_product (l1, l2)) call abort ()
end
|
