gcc-4.9/gcc/testsuite/gfortran.fortran-torture/compile/pr45598.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

program main
implicit none
character(len=10) :: digit_string = '123456789'
character :: digit_arr(10)
call copy(digit_string, digit_arr)
print '(1x, a1)',digit_arr(1:9)
contains
  subroutine copy(in, out)
    character, dimension(10) :: in, out
    out(1:10) = in(1:10)
  end subroutine copy
end program main