diff options
author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-02-05 18:22:04 +0200 |
---|---|---|
committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-02-05 18:22:04 +0200 |
commit | 02b177518d015afbd117dfdc04b5c7948d8904e3 (patch) | |
tree | 8f4de5377ee7b6e94eba0353814a02bb30e8f523 /libgfortran/intrinsics/date_and_time.c | |
parent | beea27550eb8be53affa33bdd8a32714b7166c60 (diff) | |
download | gcc-02b177518d015afbd117dfdc04b5c7948d8904e3.zip gcc-02b177518d015afbd117dfdc04b5c7948d8904e3.tar.gz gcc-02b177518d015afbd117dfdc04b5c7948d8904e3.tar.bz2 |
PR 47571 Fix HPUX bootstrap regression, cleanup
From-SVN: r169852
Diffstat (limited to 'libgfortran/intrinsics/date_and_time.c')
-rw-r--r-- | libgfortran/intrinsics/date_and_time.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/intrinsics/date_and_time.c b/libgfortran/intrinsics/date_and_time.c index 714df14..c58d114 100644 --- a/libgfortran/intrinsics/date_and_time.c +++ b/libgfortran/intrinsics/date_and_time.c @@ -162,11 +162,11 @@ date_and_time (char *__date, char *__time, char *__zone, struct tm local_time; struct tm UTC_time; - long nanosecs; + long usecs; - if (!gf_gettime(GF_CLOCK_REALTIME, <, &nanosecs)) + if (!gf_gettime (<, &usecs)) { - values[7] = nanosecs / 1000000; + values[7] = usecs / 1000; localtime_r (<, &local_time); gmtime_r (<, &UTC_time); |