diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index ced11bcea84..73ce8ec283d 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Sun Mar 10 12:37:42 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* target.c (ffetarget_print_hex): Const-ify.
+
 2002-03-06  Phil Edwards  <pme@gcc.gnu.org>
 
 	* version.c:  Fix misplaced leading blanks on first line.
diff --git a/gcc/f/target.c b/gcc/f/target.c
index 11fb0b1d83b..a1a78018a96 100644
--- a/gcc/f/target.c
+++ b/gcc/f/target.c
@@ -2190,7 +2190,7 @@ ffetarget_print_hex (FILE *f, ffetargetTypeless value)
 {
   char *p;
   char digits[sizeof (value) * CHAR_BIT / 4 + 1];
-  static char hexdigits[16] = "0123456789ABCDEF";
+  static const char hexdigits[16] = "0123456789ABCDEF";
 
   if (f == NULL)
     f = dmpout;