mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-10 07:14:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/35990 (run-time abort for PACK of run-time zero sized array)

Browse Source 
2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR libfortran/35990
	* intrinsics/pack_generic.c:  Really commit.

From-SVN: r134928
This commit is contained in:
Thomas Koenig 2008-05-04 10:14:49 +00:00
parent 7ad99d60f4
commit 9e6dca7594
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/35990
* intrinsics/pack_generic.c: Really commit.
2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/35990

16
libgfortran/intrinsics/pack_generic.c
View File

@ -491,6 +491,7 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array,
index_type dim;
index_type ssize;
index_type nelem;
index_type total;
dim = GFC_DESCRIPTOR_RANK (array);
ssize = 1;
@ -498,6 +499,9 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array,
{
count[n] = 0;
extent[n] = array->dim[n].ubound + 1 - array->dim[n].lbound;
if (extent[n] < 0)
extent[n] = 0;
sstride[n] = array->dim[n].stride * size;
ssize *= extent[n];
}
@ -505,18 +509,26 @@ pack_s_internal (gfc_array_char *ret, const gfc_array_char *array,
sstride[0] = size;
sstride0 = sstride[0];
sptr = array->data;
if (ssize != 0)
sptr = array->data;
else
sptr = NULL;
if (ret->data == NULL)
{
/* Allocate the memory for the result. */
int total;
if (vector != NULL)
{
/* The return array will have as many elements as there are
in vector. */
total = vector->dim[0].ubound + 1 - vector->dim[0].lbound;
if (total <= 0)
{
total = 0;
vector = NULL;
}
}
else
{