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