------- 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 <[EMAIL PROTECTED]> 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 <[EMAIL PROTECTED]> 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
