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

trans-types.c (gfc_init_types): Ensure gfc_integer_types doesn't contain TYPE_STRING_FLAG types. 

* trans-types.c (gfc_init_types): Ensure gfc_integer_types doesn't
	contain TYPE_STRING_FLAG types.

From-SVN: r145771
This commit is contained in:
Jakub Jelinek 2009-04-08 22:02:43 +02:00 committed by Jakub Jelinek
parent ce9ba79be2
commit dead0bae53
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-08 Jakub Jelinek <jakub@redhat.com>
* trans-types.c (gfc_init_types): Ensure gfc_integer_types doesn't
contain TYPE_STRING_FLAG types.
2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/39670

3
gcc/fortran/trans-types.c
View File

@ -721,6 +721,9 @@ gfc_init_types (void)
for (index = 0; gfc_integer_kinds[index].kind != 0; ++index)
{
type = gfc_build_int_type (&gfc_integer_kinds[index]);
/* Ensure integer(kind=1) doesn't have TYPE_STRING_FLAG set. */
if (TYPE_STRING_FLAG (type))
type = make_signed_type (gfc_integer_kinds[index].bit_size);
gfc_integer_types[index] = type;
snprintf (name_buf, sizeof(name_buf), "integer(kind=%d)",
gfc_integer_kinds[index].kind);