单项选择题

阅读下面的程序,运行后的输出结果为()。
CHARACTER*6S
S='ABCDEF'
END
SUBROUTINE SS(S1)
CHARACTER S1*3
WRITE(*,*)S1
END

A.ABC
B.BCD
C.CDE
D.DEF