! { dg-do run }

program p
   logical, parameter :: a(0) = .true.
   real, parameter :: b(0) = 0
   complex, parameter :: c(0) = 0
   integer :: d
   data d /a%kind/
   data e /b%kind/
   data f /c%kind/
   if (d .ne. kind(a)) stop 1
   if (e .ne. kind(b)) stop 2
   if (f .ne. kind(c)) stop 3
end