diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b854abce581..74b959ddfa6 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,4 +1,8 @@
 2002-11-13  Nathanael Nerode  <neroden@gcc.gnu.org>
+	PR ada/6919
+	* adaint.c (__gnat_tmp_name): Remove buffer overflow bug on
+	GNU/Linux.
+
 	PR ada/6558
 	* config-lang.in: Remove diff_excludes.
 
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 0511071d432..98db5a191f9 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -709,7 +709,7 @@ __gnat_tmp_name (tmp_filename)
   if (tmpdir == NULL)
     strcpy (tmp_filename, "/tmp/gnat-XXXXXX");
   else
-    sprintf (tmp_filename, "%s/gnat-XXXXXX", tmpdir);
+    sprintf (tmp_filename, "%200s/gnat-XXXXXX", tmpdir);
 
   close (mkstemp(tmp_filename));
 #else