[Bug fortran/58593] [4.9 Regression] internal compiler error: in gfc_conv_string_tmp, at fortran/trans-expr.c:2360

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58593

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> ---
(In reply to Tobias Burnus from comment #1)
> Glancing a the code, I don't see why it fails.

Shot into the dark:

--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -2359,4 +2359,4 @@ gfc_conv_string_tmp (gfc_se * se, tree type, tree len)
       tmp = TREE_TYPE (type);
-      gcc_assert (TREE_CODE (tmp) == ARRAY_TYPE);
-      tmp = TYPE_SIZE_UNIT (TREE_TYPE (tmp));
+      if (TREE_CODE (tmp) == ARRAY_TYPE)
+        tmp = TYPE_SIZE_UNIT (TREE_TYPE (tmp));
       tmp = fold_build2_loc (input_location, MULT_EXPR, size_type_node,