ついでに質問です。

……
real(8),dimension(1:3)::bar
……
call foo(…,bar)
……
end program

subroutine foo(…,bar)
real(8),dimension(:),intent(INOUT)::bar
……
end subroutine

という感じにプログラムを組んだんですが、実行してみるとbarの値や形状が
正常に受け渡しされてないことが判明しました。原因がさっぱり分かりません。
何か分かる方がいらっしゃいましたらご教授お願いします。

使用コンパイラはIntel Fortran Compiler8.1 for Windowsです。