Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / libgfortran / intrinsics / dtime.c
index e36e1f1..b5b148e 100644 (file)
@@ -1,6 +1,5 @@
 /* Implementation of the dtime intrinsic.
-   Copyright (C) 2004, 2005, 2006, 2007, 2009, 2011 Free Software
-   Foundation, Inc.
+   Copyright (C) 2004-2013 Free Software Foundation, Inc.
 
 This file is part of the GNU Fortran runtime library (libgfortran).
 
@@ -65,7 +64,7 @@ dtime_sub (gfc_array_r4 *t, GFC_REAL_4 *result)
       tt = -1;
     }
 
-  tp = t->data;
+  tp = t->base_addr;
 
   *tp = tu;
   tp += GFC_DESCRIPTOR_STRIDE(t,0);