Message ID | CAO9iq9EWAdqOJtVhR4cim58VB-mMUFW_aboGPXuwnavPDBdAEg@mail.gmail.com |
---|---|
State | New |
Headers | show |
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;