fortran66のブログ

fortran について書きます。

自己出力プログラム

CHARACTER(LEN=68)::f
f='("CHARACTER(LEN=68)::f"/"f=",3a/"PRINT f,CHAR(39),f,CHAR(39)"/"END")'
PRINT f,CHAR(39),f,CHAR(39)
END

ソースコードはFortran90。CHRA(39)は『'』。