gcc/gcc/testsuite/gfortran.dg/namelist_assumed_char.f90 - native_client/nacl-toolchain - Git at Google

 ! { 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
	! { 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