patch, libfortran: Fix PR 35990

[Thomas Koenig]

Hello world,

this rather straightforward patch fixes PR 35990.  The test case is an
extension of the reporter's.

Currently regression-testing on i686-pc-linux-gnu.

OK for trunk if it passes?  What do you think about backporting this to
4.3?

	Thomas

2008-05-03  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/35990
	* intrinsics/pack_generic.c:  If an extent of the source
	array is less then zero, set it to zero.  Set the source
	pointer to NULL if the source size is zero.  Set the total
	number of elements to zero if the vector has an extent
	less or equal to zero.
	* m4/pack.m4:  Set the source pointer to NULL if the
	source array is zero-sized.  Set the total number of
	elemements to zero if the vector has an extent less or
	equal to zero.
	* generated/pack_i1.c:  Regenerated.
	* generated/pack_i2.c:  Regenerated.
	* generated/pack_i4.c:  Regenerated.
	* generated/pack_i8.c:  Regenerated.
	* generated/pack_i16.c:  Regenerated.
	* generated/pack_r4.c:  Regenerated.
	* generated/pack_r8.c:  Regenerated.
	* generated/pack_r10.c:  Regenerated.
	* generated/pack_r16.c:  Regenerated.
	* generated/pack_c4.c:  Regenerated.
	* generated/pack_c8.c:  Regenerated.
	* generated/pack_c10.c:  Regenerated.
	* generated/pack_c16.c:  Regenerated.

2008-05-03  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/35990
	* gfortran.dg/intrinsic_pack_4.f90:  New test case.


-------------- next part --------------
A non-text attachment was scrubbed...
Name: intrinsic_pack_4.f90
Type: text/x-fortran
Size: 2273 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080503/d52e9d14/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: p2.diff
Type: text/x-patch
Size: 2370 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080503/d52e9d14/attachment-0001.bin>