diff options
Diffstat (limited to 'libgfortran/intrinsics/etime.c')
| -rw-r--r-- | libgfortran/intrinsics/etime.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/etime.c b/libgfortran/intrinsics/etime.c index d90bc3022d7..96c6d712c5c 100644 --- a/libgfortran/intrinsics/etime.c +++ b/libgfortran/intrinsics/etime.c @@ -1,6 +1,6 @@ /* Implementation of the ETIME intrinsic. - Copyright (C) 2004, 2005, 2006, 2007, 2009, 2011 Free Software - Foundation, Inc. + Copyright (C) 2004, 2005, 2006, 2007, 2009, 2011, 2012 + Free Software Foundation, Inc. Contributed by Steven G. Kargl <kargls@comcast.net>. This file is part of the GNU Fortran runtime library (libgfortran). @@ -52,7 +52,7 @@ etime_sub (gfc_array_r4 *t, GFC_REAL_4 *result) tt = (GFC_REAL_4)-1.0; } - tp = t->data; + tp = t->base_addr; *tp = tu; tp += GFC_DESCRIPTOR_STRIDE(t,0); |