blob: d2fd77335f47d6599c7bf1dabf3caa3b906bcb38 [file] [log] [blame]
! { 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