diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index cbd3e1e171ba..8df6b35529b4 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2007-06-15  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+	PR libfortran/32345
+	* runtime/backtrace.c (show_backtrace): Only use snprintf if
+	available.
+
 2007-06-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/32235
diff --git a/libgfortran/runtime/backtrace.c b/libgfortran/runtime/backtrace.c
index 3b17a3950bf8..3577c6476a66 100644
--- a/libgfortran/runtime/backtrace.c
+++ b/libgfortran/runtime/backtrace.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2006 Free Software Foundation, Inc.
+/* Copyright (C) 2006, 2007 Free Software Foundation, Inc.
    Contributed by François-Xavier Coudert
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
@@ -301,7 +301,11 @@ fallback:
 
 	st_printf ("\nBacktrace for this error:\n");
 	arg[0] = (char *) "pstack";
+#ifdef HAVE_SNPRINTF
 	snprintf (buf, sizeof(buf), "%d", (int) getppid ());
+#else
+	sprintf (buf, "%d", (int) getppid ());
+#endif
 	arg[1] = buf;
 	arg[2] = NULL;
 	execvp (arg[0], arg);