Simplify time() usage.

2011-11-09  Janne Blomqvist  <jb@gcc.gnu.org>

	* intrinsics/time_1.h (gf_gettime): Simplify time() usage.

From-SVN: r181228

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f299ccba63325d56820775c67ee6373488743131..f0b64c95093726c5e81703f8a27e685b3933fbdd 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-09  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       * intrinsics/time_1.h (gf_gettime): Simplify time() usage.
+
 2011-11-09  Janne Blomqvist  <jb@gcc.gnu.org>
 
        * configure.ac (AC_STDC_HEADERS): Remove.

diff --git a/libgfortran/intrinsics/time_1.h b/libgfortran/intrinsics/time_1.h
index 73977cbef617b594c359e4255a45d165cadabbea..327f7cf4e0e0c9bbcac770732c43f89c785f0fdd 100644 (file)
--- a/libgfortran/intrinsics/time_1.h
+++ b/libgfortran/intrinsics/time_1.h
@@ -213,9 +213,8 @@ gf_gettime (time_t * secs, long * usecs)
   *usecs = tv.tv_usec;
   return err;
 #else
-  time_t t, t2;
-  t = time (&t2);
-  *secs = t2;
+  time_t t = time (NULL);
+  *secs = t;
   *usecs = 0;
   if (t == ((time_t)-1))
     return -1;