diff options
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 8a0afe9..e35e0c9 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1563,18 +1563,18 @@ gfc_trans_array_ctor_element (stmtblock_t * pblock, tree desc, { gfc_add_modify (&se->pre, first_len_val, fold_convert (TREE_TYPE (first_len_val), - se->string_length)); + se->string_length)); first_len = false; } else { /* Verify that all constructor elements are of the same length. */ + tree rhs = fold_convert (TREE_TYPE (first_len_val), + se->string_length); tree cond = fold_build2_loc (input_location, NE_EXPR, logical_type_node, first_len_val, - fold_convert (TREE_TYPE - (first_len_val), - se->string_length)); + rhs); gfc_trans_runtime_check (true, false, cond, &se->pre, &expr->where, "Different CHARACTER lengths (%ld/%ld) in array constructor", |