1! { dg-do compile }
2! { dg-options "-std=f95" }
3!
4! PR fortran/31818 - accepts namelists with assumed-shape arrays
5!
6
7subroutine test(cha)
8  implicit none
9  character(len=10) :: cha(:)
10  namelist /z/  cha             ! { dg-error "with assumed shape in namelist" }
11end subroutine test
12