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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@42805 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 84b9602..238eb29 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 6114a53..871c4fa 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"),