From a49bedaa4dbb72a65549e01cd3b21d82e685bbf1 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sat, 2 Jun 2001 17:42:21 +0200 Subject: com.c (ffecom_init_0): Make CHARACTER*1 unsigned. 2001-06-02 Toon Moene * com.c (ffecom_init_0): Make CHARACTER*1 unsigned. From-SVN: r42805 --- gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 2 ++ 2 files changed, 6 insertions(+) (limited to 'gcc') 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 + + * com.c (ffecom_init_0): Make CHARACTER*1 unsigned. + 2001-05-23 Theodore Papadopoulo * 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"), -- cgit v1.1