Subversion Repositories openrisc

! { dg-do run }
! PR 47065 - make sure that trim optimization does not lead to
! wrong-code with aliasing.
! Test case provided by Tobias Burnus.
program main
  character(len=12) :: str
  str = '1234567890'
  call sub(trim(str), str)
  ! Should print '12345       '
  if (str /= '12345       ') call abort
  call two(trim(str))
  if (str /= '123         ') call abort
contains
  subroutine sub(a,b)
    character(len=*), intent(in) :: a
    character(len=*), intent(out) :: b
    b = ''
    b = a(1:5)
  end subroutine sub
  subroutine two(a)
    character(len=*), intent(in) :: a
    str = ''
    str(1:3) = a(1:3)
  end subroutine two
end program main