では、恥さらし覚悟でうｐります。何でこれがセグるのか分からない・・・

integer n
parameter(n=100000000)
real*4 a(n)
print *,"before call"
call sub(a,n)
print *,"after call"
end

subroutine sub(a,n)
integer n
real*4 a(n)
real*4 b(n) ! <-----(1)
print *,"hoge" ! <-----(2)
return
end

v10.1です。(1)か(2)を削ると動きます。v9.0では無問題でした。
何がなんだか・・・orz