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