Fix a potential buffer overflow.

From-SVN: r121958

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 34a470d6c128aa4864a44eccb813247e0bbd2cf1..12b8e6f82dd9dcf003aa76f480529970506c1c8a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2007-02-14  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       * misc.c (gfc_typename): Fix potential buffer overflow.
+
 2007-02-13  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/30554

diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c
index c0150edda3b0a5d1150102c42f8886984386fd9e..f1fdbf52e3defd75878d798efd346f2a01b7056c 100644 (file)
--- a/gcc/fortran/misc.c
+++ b/gcc/fortran/misc.c
@@ -152,7 +152,8 @@ gfc_basic_typename (bt type)
 const char *
 gfc_typename (gfc_typespec *ts)
 {
-  static char buffer1[60], buffer2[60]; /* FIXME:  Buffer overflow.  */
+  static char buffer1[GFC_MAX_SYMBOL_LEN + 7];  /* 7 for "TYPE()" + '\0'.  */
+  static char buffer2[GFC_MAX_SYMBOL_LEN + 7];
   static int flag = 0;
   char *buffer;