下列程序执行后的输出结果为( )。

CHARACTER *6 S

S=´ABCDEF

CALL SS(S)

END

SUBROUTINE SS(S1)

CHARACTER S1*3

WRITE(*，*) S1

END

A．ABC B．BC C．CDE D．DEF