*ping* [patch, fortran] Fix an issue found by Coverity scan

[Thomas Koenig]

I wrote:

http://gcc.gnu.org/ml/gcc-patches/2012-09/msg01293.html

pretty self-explanatory.  No test case because there is no change
in behavior.  OK for trunk?