diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-types.c | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr95089.f90 | 11 |
2 files changed, 14 insertions, 2 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index b7712dc..9984481 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -2836,9 +2836,10 @@ copy_derived_types: && (c->attr.allocatable || c->attr.pointer) && !derived->attr.is_class) { - char caf_name[GFC_MAX_SYMBOL_LEN]; + /* Provide sufficient space to hold "_caf_symbol". */ + char caf_name[GFC_MAX_SYMBOL_LEN + 6]; gfc_component *token; - snprintf (caf_name, GFC_MAX_SYMBOL_LEN, "_caf_%s", c->name); + snprintf (caf_name, sizeof (caf_name), "_caf_%s", c->name); token = gfc_find_component (derived, caf_name, true, true, NULL); gcc_assert (token); c->caf_token = token->backend_decl; diff --git a/gcc/testsuite/gfortran.dg/pr95089.f90 b/gcc/testsuite/gfortran.dg/pr95089.f90 new file mode 100644 index 0000000..1cd20f0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr95089.f90 @@ -0,0 +1,11 @@ +! { dg-do compile } +! { dg-options "-fcoarray=lib" } +! +! PR fortran/95089 - ICE in gfc_get_derived_type, at fortran/trans-types.c:2843 + +module m23456789012345678901234567890123456789012345678901234567890123 + type t23456789012345678901234567890123456789012345678901234567890123 + type (t23456789012345678901234567890123456789012345678901234567890123), & + pointer :: z23456789012345678901234567890123456789012345678901234567890123 + end type t23456789012345678901234567890123456789012345678901234567890123 +end |