From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Fri, 4 Mar 2011 17:52:10 +0000 (+0200)
Subject: PR 47802 Hack to work around draft POSIX localtime_r
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7a9d7a4f865490d0972a07dc4d8ae2de6b2c5a27;p=gcc.git

PR 47802 Hack to work around draft POSIX localtime_r

From-SVN: r170680
---

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  <jb@gcc.gnu.org>
+
+	PR libfortran/47802
+	* intrinsics/ctime.c (strctime): Don't use return value of
+	localtime_r.
+
 2011-02-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	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, &ltm);
+  return strftime (s, max, "%c", &ltm);
 #else
   return 0;
 #endif