すみません、環境はfedoraのf77でコンパイルしてます。
f77 main.c fsub.f
で出来たa.outを実行すると
セグメンテーション違反になります。
うーーん、i=12;とか代入したものを渡すとうまくいくんですけど。。