|
! { dg-do compile }
|
|
! PR30481 Assumed size character is not allowed in namelist.
|
|
! Test case from PR, submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
subroutine foo(c)
|
|
character*(*) c
|
|
namelist /abc/ c ! { dg-error "Assumed character length" }
|
|
end subroutine
|