しつこく自己記述プログラム

マルチ・ステートメント版

character(51)::f="('character(51)::f=',a1,a,a1';print f,34,f,34;end')";print f,34,f,34;end

改行版

character(53)::f="('character(53)::f=',a1,a,a1/'print f,34,f,34'/'end')"
print f,34,f,34
end