1! { dg-do compile }
2! { dg-options "-std=f95" }
3
4! PR30481 Assumed size character is not allowed in namelist.
5! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
6!
7! Modifications for PR fortran/47339 / PR fortran/43062:
8! Add -std=f95, add bar()
9!
10subroutine foo(c)
11  character*(*) c
12  namelist /abc/ c  ! { dg-error "nonconstant character length in namelist" }
13end subroutine
14
15subroutine bar(d,n)
16  integer :: n
17  character(len=n) d
18  namelist /abcd/ d  ! { dg-error "nonconstant character length in namelist" }
19end subroutine bar
20
21