! { 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 | |