(来学网)有程哼：CHARACTER A*7
A=‘ABCDEFG'
CALL S(A)
END
SUBROUTINE S(x)
CHARACTER x*4
WRITE(A，*)x
END
此程序运行后的结果为：