1! { dg-do compile } 2! PR fortran/88206 3program p 4 integer, parameter :: z(4) = [1,2,3,4] 5 integer :: k = 2 6 print *, [real(z(k))] 7end 8 9