diff options
Diffstat (limited to 'libgfortran/intrinsics/dtime.c')
| -rw-r--r-- | libgfortran/intrinsics/dtime.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/dtime.c b/libgfortran/intrinsics/dtime.c index d1eb9121ab8..e36e1f1d04a 100644 --- a/libgfortran/intrinsics/dtime.c +++ b/libgfortran/intrinsics/dtime.c @@ -1,7 +1,8 @@ /* Implementation of the dtime intrinsic. - Copyright (C) 2004, 2005, 2006, 2007, 2009 Free Software Foundation, Inc. + Copyright (C) 2004, 2005, 2006, 2007, 2009, 2011 Free Software + Foundation, Inc. -This file is part of the GNU Fortran 95 runtime library (libgfortran). +This file is part of the GNU Fortran runtime library (libgfortran). Libgfortran is free software; you can redistribute it and/or modify it under the terms of the GNU General Public @@ -47,7 +48,7 @@ dtime_sub (gfc_array_r4 *t, GFC_REAL_4 *result) runtime_error ("Insufficient number of elements in TARRAY."); __gthread_mutex_lock (&dtime_update_lock); - if (__time_1 (&user_sec, &user_usec, &system_sec, &system_usec) == 0) + if (gf_cputime (&user_sec, &user_usec, &system_sec, &system_usec) == 0) { tu = (GFC_REAL_4) ((user_sec - us) + 1.e-6 * (user_usec - uu)); ts = (GFC_REAL_4) ((system_sec - ss) + 1.e-6 * (system_usec - su)); |