! { dg-do run }
! PR fortran/83998
program p
   integer, parameter :: a(0) = 1
   real, parameter :: b(0) = 1
   complex, parameter :: c(0) = 1
   logical, parameter :: d(0) = .true.
   if (dot_product(a,a) /= 0) STOP 1
   if (dot_product(b,b) /= 0) STOP 2
   if (dot_product(c,c) /= 0) STOP 3
   if (dot_product(d,d) .neqv. .false.) STOP 4
end