Message ID | 20151125150944.GA37245@troutmask.apl.washington.edu |
---|---|
State | New |
Headers | show |
Index: gcc/gcc/gcc/fortran/trans-stmt.c =================================================================== --- gcc/gcc/gcc/fortran/trans-stmt.c (revision 230851) +++ gcc/gcc/gcc/fortran/trans-stmt.c (working copy) @@ -3125,9 +3125,8 @@ gfc_do_allocate (tree bytesize, tree siz type = build_range_type (gfc_array_index_type, gfc_index_zero_node, tmp); type = build_array_type (elem_type, type); - if (gfc_can_put_var_on_stack (bytesize)) + if (gfc_can_put_var_on_stack (bytesize) && INTEGER_CST_P (size)) { - gcc_assert (INTEGER_CST_P (size)); tmpvar = gfc_create_var (type, "temp"); *pdata = NULL_TREE; }