FORTRAN Ⅳ - 暇つぶし2ch

FORTRAN Ⅳ at TECH

840:デフォルトの名無しさん
10/09/09 10:17:06
>>839 うーん、勘違いしてました。
write(*,*) "foo",func

function func()
func = 0.d0
write(*,*) "bar"
end function
とするとrecursive I/O errorがでるので駄目。
というのを脳内変換して、function内でwrite文が使えないという脳内ルールにしてました。
すみません。 subroutineではありえないこういうケースもあるよ、ということで...

次ページ

続きを表示

1を表示