diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 84b960290fa..238eb2914a8 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-02  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* com.c (ffecom_init_0): Make CHARACTER*1 unsigned.
+
 2001-05-23  Theodore Papadopoulo  <Theodore.Papadopoulo@sophia.inria.fr>
 
 	* Make-lang.in ($(srcdir)/f/g77.info): Added dependencies on
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 6114a53c91a..871c4faa4f7 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -11411,6 +11411,8 @@ ffecom_init_0 ()
   /* Define `int' and `char' first so that dbx will output them first.  */
   pushdecl (build_decl (TYPE_DECL, get_identifier ("int"),
 			integer_type_node));
+  /* CHARACTER*1 is unsigned in ICHAR contexts.  */
+  char_type_node = make_unsigned_type (CHAR_TYPE_SIZE);
   pushdecl (build_decl (TYPE_DECL, get_identifier ("char"),
 			char_type_node));
   pushdecl (build_decl (TYPE_DECL, get_identifier ("long int"),