1! { dg-do compile }
2! PR fortran/66107
3subroutine p
4 integer n
5 character(*), parameter :: z(1) = [character(len=n) :: 'x'] ! { dg-error "Cannot initialize parameter array at .1. with variable length elements" }
6end subroutine
7