summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/char_length_11.f90
blob: e745c123e3adc798717f596ea0bba88523a32fd9 (plain)
1
2
3
4
5
! { dg-do compile }

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