contain TYPE_STRING_FLAG types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145771
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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);