AArch64: correct constraint on Upl early clobber alternatives

[official-gcc.git] / gcc / testsuite / gfortran.dg / char_length_22.f90

! { dg-do compile }
! { dg-options "-O -Wall" }
! PR 94091 - this used to give a bogus warning.
! Test case by "MikeS".
program tester
  character(50) cname,fred
  fred='1234567890123456789012345678901234567890' ! 40 characters
  kk=len_trim(fred)
  cname=fred(5:kk)
  print *,kk,cname
end program tester