https://gcc.gnu.org/bugzilla/show_bug.cgi?id=71203
--- Comment #7 from Harald Anlauf <anlauf at gmx dot de> --- Attempting to "fix" the negative length issue with Index: gcc/fortran/expr.c =================================================================== --- gcc/fortran/expr.c (revision 256671) +++ gcc/fortran/expr.c (working copy) @@ -1677,6 +1677,8 @@ end = (int) mpz_get_ui (p->ref->u.ss.end->value.integer); start = (int) mpz_get_ui (p->ref->u.ss.start->value.integer); length = end - start + 1; + if (end < start) + length = 0; chr = (*newp)->value.character.string = gfc_get_wide_string (length + 1); (*newp)->value.character.length = length; leads to z3a and z3b crashing the same way. Which is sort of more consistent than before. :-(
