Subversion Repositories openrisc

! { dg-do run }

!

! PR fortran/30940

program main

  implicit none

  character(len=10) :: digit_string = '123456789', str

  character :: digit_arr(10)

  call copy(digit_string, digit_arr)

  call copy(digit_arr,str)

  if(str /= '123456789') call abort()

  digit_string = 'qwertasdf'

  call copy2(digit_string, digit_arr)

  call copy2(digit_arr,str)

  if(str /= 'qwertasdf') call abort()

  digit_string = '1qayxsw23e'

  call copy3("1qayxsw23e", digit_arr)

  call copy3(digit_arr,str)

  if(str /= '1qayxsw23e') call abort()

contains

  subroutine copy(in, out)

    character, dimension(*)  :: in

    character, dimension(10) :: out

    out = in(:10)

  end subroutine copy

  subroutine copy2(in, out)

    character, dimension(2,*)  :: in

    character, dimension(2,5) :: out

    out(1:2,1:5) = in(1:2,1:5)

  end subroutine copy2

  subroutine copy3(in, out)

    character(len=2), dimension(5)  :: in

    character(len=2), dimension(5) :: out

    out = in

  end subroutine copy3

end program main