char_length_11.f90 « gfortran.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

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

blob: e745c123e3adc798717f596ea0bba88523a32fd9 (plain)

! { dg-do compile }

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