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