| 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 | |