4 integer, parameter :: a(0) = 1
5 real, parameter :: b(0) = 1
6 complex, parameter :: c(0) = 1
7 logical, parameter :: d(0) = .true
.
8 if (dot_product(a
,a
) /= 0) STOP 1
9 if (dot_product(b
,b
) /= 0) STOP 2
10 if (dot_product(c
,c
) /= 0) STOP 3
11 if (dot_product(d
,d
) .neqv
. .false
.) STOP 4
