[patch, fortran] Fix PR 46007, segfault with shape

[Thomas Koenig]

Am Donnerstag, den 21.10.2010, 13:44 +0200 schrieb Tobias Burnus:
> On 10/21/2010 01:37 PM, Thomas Koenig wrote:
> > this rather straightforward patch fixes PR 46007.
> >
> > Regression-tested on trunk.  OK for trunk?  Also OK for 4.5 after
> > regression-testing there?
> 
> OK. Thanks for the patch!
> 
> Tobias
> 
> > 2010-10-21  Thomas Koenig<tkoenig@gcc.gnu.org>
> >
> > 	PR fortran/46007
> > 	* m4/shape.m4 (shape_'rtype_kind`):  Use variable for rank.
> > 	Allocate return array if unallocated.
> > 	* generated/shape_i4.c:  Regenerated.
> > 	* generated/shape_i8.c:  Regenerated.
> > 	* generated/shape_i16.c:  Regenerated.
> >
> > 2010-10-21  Thomas Koenig<tkoenig@gcc.gnu.org>
> >
> > 	PR fortran/46007
> > 	* gfortran.dg/shape_5.f90:  New test case.
> >
> 

Committed to trunk as revision 165770.
Committed to 4.5 as revision 165773.

Thanks for the review!

	Thomas