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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 84b960290fabe89a7e44cc7e35b9e2327d90a28c..238eb2914a895cee130af071bed86aa06bd6d34d 100644 (file)
--- 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 6114a53c91a3ab9fd2137d7435295b474a4d69b7..871c4faa4f7acc4435d0c92d77836211e1bd390f 100644 (file)
--- 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"),