diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-25 09:02:32 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-02-25 09:02:32 +0000 |
| commit | 6ef1366a5516de64a6fcf35014359aba9d631c9a (patch) | |
| tree | befc8dea5057c1f1971a4e3fae6cb2061f649b52 /gcc/fortran/resolve.c | |
| parent | c7aff3bc8b277abc714f03772ad79e37c85cdaae (diff) | |
| download | gcc-6ef1366a5516de64a6fcf35014359aba9d631c9a.zip gcc-6ef1366a5516de64a6fcf35014359aba9d631c9a.tar.gz gcc-6ef1366a5516de64a6fcf35014359aba9d631c9a.tar.bz2 | |
re PR fortran/78238 ([OOP] ICE: verify_gimple failed, with -fdefault-integer-8)
2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/78238
* gfortran.h (gfc_integer_4_kind): Define.
* resolve.c (resolve_select_type): Make sure that the
kind of c->high is gfc_integer_4_kind.
2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/78238
* gfortran.dg/select_type_40.f90: New test.
From-SVN: r257968
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index fee5b1b..6869bce 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8961,7 +8961,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) { vtab = gfc_find_derived_vtab (c->ts.u.derived); gcc_assert (vtab); - c->high = gfc_get_int_expr (gfc_default_integer_kind, NULL, + c->high = gfc_get_int_expr (gfc_integer_4_kind, NULL, c->ts.u.derived->hash_value); } else @@ -8970,6 +8970,13 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) gcc_assert (vtab && CLASS_DATA (vtab)->initializer); e = CLASS_DATA (vtab)->initializer; c->high = gfc_copy_expr (e); + if (c->high->ts.kind != gfc_integer_4_kind) + { + gfc_typespec ts; + ts.kind = gfc_integer_4_kind; + ts.type = BT_INTEGER; + gfc_convert_type_warn (c->high, &ts, 2, 0); + } } e = gfc_lval_expr_from_sym (vtab); |