[Bug fortran/35990] run-time abort for PACK of run-time zero sized array

[tkoenig at gcc dot gnu dot org]

------- Comment #5 from tkoenig at gcc dot gnu dot org  2008-05-04 08:06 -------
Subject: Bug 35990

Author: tkoenig
Date: Sun May  4 08:06:02 2008
New Revision: 134927

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=134927
Log:
2008-05-04  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-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

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


Added:
    trunk/gcc/testsuite/gfortran.dg/intrinsic_pack_4.f90
Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/generated/pack_c10.c
    trunk/libgfortran/generated/pack_c16.c
    trunk/libgfortran/generated/pack_c4.c
    trunk/libgfortran/generated/pack_c8.c
    trunk/libgfortran/generated/pack_i1.c
    trunk/libgfortran/generated/pack_i16.c
    trunk/libgfortran/generated/pack_i2.c
    trunk/libgfortran/generated/pack_i4.c
    trunk/libgfortran/generated/pack_i8.c
    trunk/libgfortran/generated/pack_r10.c
    trunk/libgfortran/generated/pack_r16.c
    trunk/libgfortran/generated/pack_r4.c
    trunk/libgfortran/generated/pack_r8.c
    trunk/libgfortran/m4/pack.m4


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35990