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:
parent
ce9ba79be2
commit
dead0bae53
|
@ -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
|
||||
|
|
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue