阅读下列FORTRAN程序：

CHARACTER A*5

A=´ABCDE´

CALL S(A)

END

SUBROUTINE S(X)

CHARACTER X*3

WRITE(*，*)X

END

执行上述程序后，输出的X值为( )。

A．´AB B．DE´ C．CDE D．ABC