------- Comment #4 from tkoenig at gcc dot gnu dot org 2008-01-26 19:36 -------
This is currently bootstrapping.
$ svn diff
Index: shape.m4
===================================================================
--- shape.m4 (revision 131874)
+++ shape.m4 (working copy)
@@ -49,6 +49,9 @@ shape_'rtype_kind` ('rtype` * const rest
stride = ret->dim[0].stride;
+ if (ret->dim[0].ubound < ret->dim[0].lbound)
+ return;
+
for (n = 0; n < GFC_DESCRIPTOR_RANK (array); n++)
{
ret->data[n * stride] =
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34980
