diff options
Diffstat (limited to 'gcc/f/com.c')
-rw-r--r-- | gcc/f/com.c | 2 |
1 files changed, 2 insertions, 0 deletions
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"), |