blob: 4c4c790d1601dce7f90ca621ec495974678d9c22 [file] [log] [blame]
logical :: l1(4)
logical :: l2(4)
l1 = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./)
l2 = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./)
if (dot_product (l1, l2)) STOP 1
l2 = .TRUE.
if (.not.dot_product (l1, l2)) STOP 2
end