char_length_11.f90 « gfortran.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gfortran.dg/char_length_11.f90

blob: e745c123e3adc798717f596ea0bba88523a32fd9 (plain)

! { dg-do compile }

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