! { dg-do run }
!
! PR fortran/51055
! PR fortran/49110
!
!
program test
  implicit none
  character(len=:), allocatable :: str
  integer :: i
  i = 5
  str = f()
  call printIt ()
  i = 7
  str = repeat('X', i)
  call printIt ()
contains
  function f()
    character(len=i) :: f
    f = '1234567890'
  end function f
  subroutine printIt
!    print *, len(str)
!    print '(3a)', '>',str,'<'
    if (i == 5) then
      if (str /= "12345" .or. len(str) /= 5) STOP 1
    else if (i == 7) then
      if (str /= "XXXXXXX" .or. len(str) /= 7) STOP 2
    else
      STOP 3
    end if
  end subroutine
end