com.c (ffecom_init_0): Make CHARACTER*1 unsigned.

2001-06-02  Toon Moene  <toon@moene.indiv.nluug.nl>

	* com.c (ffecom_init_0): Make CHARACTER*1 unsigned.

From-SVN: r42805

gcc/f/ChangeLog

+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

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"),