e_711_01.f90

来自「Fortran77和90/95编程入门对应的程序源码」· F90 代码 · 共 7 行

!猜猜输出是啥结果？为何？

CHARACTER::q*1,f*69
q=""""
f="('CHARACTER::q*1,f*69'/'q=',4A/'f=',3A/'PRINT f,q,q,q,q,q,f,q'/'END')"
PRINT f,q,q,q,q,q,f,q
END