From patchwork Fri Jun  1 17:08:27 2012
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: Fix typo in intrinsics/time_1.h
Date: Fri, 01 Jun 2012 07:08:27 -0000
From: rbmj <rbmj@verizon.net>
X-Patchwork-Id: 162356
Message-Id: <4FC8F70B.1090403@verizon.net>
To: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org

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


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;