gcc/testsuite/gfortran.dg/char_length_11.f90 - gcc - Git at Google

 ! { dg-do compile }

   character(len=*), parameter :: s = "foo"
   write (*,*) adjustr(s(:))
 end
	! { dg-do compile }

	character(len=*), parameter :: s = "foo"
	write (,) adjustr(s(:))
	end