Patchwork Fix typo in intrinsics/time_1.h

login
register
mail settings
Submitter rbmj
Date June 1, 2012, 5:08 p.m.
Message ID <4FC8F70B.1090403@verizon.net>
Download mbox | patch
Permalink /patch/162356/
State New
Headers show

Comments

rbmj - June 1, 2012, 5:08 p.m.
Hi all,

In libgfortran/intrinsics/time_1.h:181, there is a typo that refers to 
user_usecs (should be user_usec).  This patch fixes it.  I don't have 
commit access, so someone please apply this for me.  It should be obvious.

Robert Mason
Janne Blomqvist - June 4, 2012, 7:14 p.m.
On Fri, Jun 1, 2012 at 8:08 PM, rbmj <rbmj@verizon.net> wrote:
> Hi all,
>
> In libgfortran/intrinsics/time_1.h:181, there is a typo that refers to
> user_usecs (should be user_usec).  This patch fixes it.  I don't have commit
> access, so someone please apply this for me.  It should be obvious.

Thanks for catching this. Patch committed.

Patch

diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h
index 98a20d2..920b175 100644
--- a/libgfortran/intrinsics/time_1.h
+++ b/libgfortran/intrinsics/time_1.h
@@ -178,7 +178,7 @@  gf_cputime (long *user_sec, long *user_usec, long *system_sec, long *system_usec
   struct timespec ts;
   int err = clock_gettime (CLOCK_PROCESS_CPUTIME_ID, &ts);
   *user_sec = ts.tv_sec;
-  *user_usecs = ts.tv_nsec / 1000;
+  *user_usec = ts.tv_nsec / 1000;
   *system_sec = *system_usec = 0;
   return err;