OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r42805
This commit is contained in:
Toon Moene 2001-06-02 17:42:21 +02:00 committed by Toon Moene
parent 6ac485713c
commit a49bedaa4d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/f/ChangeLog
View File

@ -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

2
gcc/f/com.c
View File

@ -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"),