Fortran/gfortran/regression/char_length_11.f90 - llvm-test-suite - 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