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

[Thomas Koenig]

Hello world,

this rather straightforward patch fixes PR 46007.

Regression-tested on trunk.  OK for trunk?  Also OK for 4.5 after
regression-testing there?

	Thomas

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.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: shape_5.f90
Type: text/x-fortran
Size: 298 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20101021/072922fd/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr46007.diff
Type: text/x-patch
Size: 820 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20101021/072922fd/attachment-0001.bin>