(来学网)有程序：CHARACTER *6S
S=‘ABCDEF'
CALL SS(S)
END
SUBROUTINE SS(S1)
CHARACTER S1*3
WRITE(*，*)S1
END
此程序执行后的输出结果为：