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