[Patch, libfortran] Trivial cleanup committed

[Janne Blomqvist]

Hi,

I committed the trivial patch below as obvious to trunk:

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

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


Index: libgfortran/intrinsics/time_1.h
===================================================================
--- libgfortran/intrinsics/time_1.h     (revision 181227)
+++ libgfortran/intrinsics/time_1.h     (working copy)
@@ -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;


-- 
Janne Blomqvist