[gcc] GCC 4.5.0=>4.5.1

gcc/libgfortran/generated/in_pack_i8.c

 /* Helper function for repacking arrays.
    Copyright 2003, 2006, 2007, 2009 Free Software Foundation, Inc.
    Contributed by Paul Brook <paul@nowt.org>
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
 
 Libgfortran is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public
 License as published by the Free Software Foundation; either
 version 3 of the License, or (at your option) any later version.
@@ skipping 39 matching lines @@
 
   /* TODO: Investigate how we can figure out if this is a temporary
      since the stride=0 thing has been removed from the frontend.  */
 
   dim = GFC_DESCRIPTOR_RANK (source);
   ssize = 1;
   packed = 1;
   for (n = 0; n < dim; n++)
     {
       count[n] = 0;
-      stride[n] = source->dim[n].stride;
-      extent[n] = source->dim[n].ubound + 1 - source->dim[n].lbound;
+      stride[n] = GFC_DESCRIPTOR_STRIDE(source,n);
+      extent[n] = GFC_DESCRIPTOR_EXTENT(source,n);
       if (extent[n] <= 0)
         {
           /* Do nothing.  */
           packed = 1;
           break;
         }
 
       if (ssize != stride[n])
         packed = 0;
 
@@ skipping 38 matching lines @@
               count[n]++;
               src += stride[n];
             }
         }
     }
   return destptr;
 }
 
 #endif