From 7a9d7a4f865490d0972a07dc4d8ae2de6b2c5a27 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Fri, 4 Mar 2011 19:52:10 +0200 Subject: [PATCH] PR 47802 Hack to work around draft POSIX localtime_r From-SVN: r170680 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/intrinsics/ctime.c | 10 +++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index a628fdd8ea1..73e2bb2ad13 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2011-03-04 Janne Blomqvist + + PR libfortran/47802 + * intrinsics/ctime.c (strctime): Don't use return value of + localtime_r. + 2011-02-28 Jerry DeLisle PR libgfortran/47567 diff --git a/libgfortran/intrinsics/ctime.c b/libgfortran/intrinsics/ctime.c index 7eb10f5fa2c..29a0e6f00f2 100644 --- a/libgfortran/intrinsics/ctime.c +++ b/libgfortran/intrinsics/ctime.c @@ -39,9 +39,13 @@ static size_t strctime (char *s, size_t max, const time_t *timep) { #ifdef HAVE_STRFTIME - struct tm res; - struct tm *ltm = localtime_r (timep, &res); - return strftime (s, max, "%c", ltm); + struct tm ltm; + /* Note: We can't use the return value of localtime_r, as some + targets provide localtime_r based on a draft of the POSIX + standard where the return type is int rather than the + standardized struct tm*. */ + localtime_r (timep, <m); + return strftime (s, max, "%c", <m); #else return 0; #endif -- 2.30.2