[gcc] GCC 4.5.0=>4.5.1

gcc/libgfortran/intrinsics/dtime.c

Index: gcc/libgfortran/intrinsics/dtime.c
diff --git a/gcc/libgfortran/intrinsics/dtime.c b/gcc/libgfortran/intrinsics/dtime.c
index 868f724f12641d195fc051dbac95c3d45a8c91d5..d1eb9121ab81c383304621393c044345c06b6a24 100644
--- a/gcc/libgfortran/intrinsics/dtime.c
+++ b/gcc/libgfortran/intrinsics/dtime.c
@@ -43,7 +43,7 @@ dtime_sub (gfc_array_r4 *t, GFC_REAL_4 *result)
   static long us = 0, uu = 0, ss = 0 , su = 0;
   GFC_REAL_4 tu, ts, tt;
 
-  if (((t->dim[0].ubound + 1 - t->dim[0].lbound)) < 2)
+  if (((GFC_DESCRIPTOR_EXTENT(t,0))) < 2)
     runtime_error ("Insufficient number of elements in TARRAY.");
 
   __gthread_mutex_lock (&dtime_update_lock);
@@ -67,7 +67,7 @@ dtime_sub (gfc_array_r4 *t, GFC_REAL_4 *result)
   tp = t->data;
 
   *tp = tu;
-  tp += t->dim[0].stride;
+  tp += GFC_DESCRIPTOR_STRIDE(t,0);
   *tp = ts;
   *result = tt;
   __gthread_mutex_unlock (&dtime_update_lock);