gcc/testsuite/gfortran.dg/logical_dot_product.f90

   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 ()
  11 end