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