https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68568
--- Comment #5 from Harald Anlauf <anlauf at gmx dot de> ---
The original testcase hits an assert in trans-decl.c:1704
1698 /* Associate names can use the hidden string length variable
1699 of their associated target. */
1700 if (sym->ts.type == BT_CHARACTER
1701 && TREE_CODE (length) != INTEGER_CST)
1702 {
1703 gfc_finish_var_decl (length, sym);
1704 gcc_assert (!sym->value);
1705 }
1706
1707 gfc_finish_var_decl (decl, sym);
If the assert is removed, the testcase compiles.
