[patch, libfortran] Fix PR 34980

[Thomas Koenig]

Hello world,

this fixes PR 34980, a 4.3 regression.

In the PR, there is a comment from Tobias B. with an alternate approach.
I was already into testing my patch when I read that comment, which is
why I didn't pursue that approach further.  I have to admit that I feel
better about adding something that's obviously (to me) correct to a
library function than to do this in the front end.

Regression-tested on i686-pc-linux-gnu.  OK for trunk?

	Thomas

2008-01-27  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/34980
	* m4/shape.m4:  If return array is empty, return early.
	* generated/shape_i4.c:  Regenerated.
	* generated/shape_i8.c:  Regenerated.
	* generated/shape_i16.c:  Regenerated.

2008-01-27  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/34980
	* gfortran.dg/shape_3.f90:  New test.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: shape-m4.diff
Type: text/x-patch
Size: 401 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080127/3c58eef7/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: shape_3.f90
Type: text/x-fortran
Size: 213 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080127/3c58eef7/attachment-0001.bin>