! { dg-do compile }
subroutine f(n, x, y)

   implicit none

   integer, parameter :: knd = kind(1.e0)

   integer, intent(in) :: n
   complex(knd), intent(in) :: x(1:n)

   integer i
   real(knd) y(2*n)
   
   y = [real(x), aimag(x)]
   y = [real(x(1:n)), aimag(x(1:n))]
   y = [real(knd) :: 1] 
   y = [real(kind=42) :: 1] ! { dg-error "Invalid type-spec" }
   y = [real(kind=knd) :: 1]
   y = [real(kind=knd, a=1.)]
   y = [real(a=1.)]
   y = [real(a=1, kind=knd)]

end subroutine f