[gfortran, PR33689] Fix fallout form patch for PR20851

[Tobias Schlüter]

Hi,

this patch fixes an issue introduced by my fix for PR20851.  As you may 
remember, I was talking about side-effects and double-error messages 
there.  I had reordered the code to call less often 
is_non_constant_shape_array(), which resolves array bounds, so there now 
arose a new situation, where an array bound was not resolved where it 
should have been.  This patch fixes this.

The patch itself is trivial, it replaces a scan of the various bounds 
with a call to is_non_constant_shape_array().  Since this clarified the 
code somewhat, I was able to understand more of the logic, so I decided 
to combine this patch with a minor simplification of the part that 
checks if the variable under consideration may be initialized.

Built and tested on i386-darwin.  Ok?

Cheers,
- Tobi
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: pr33689.diff.txt
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071008/01e02ac5/attachment.txt>