diff options
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 84b9602..238eb29 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 6114a53..871c4fa 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"), |