diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 28d1341cc7e..62c4f158378 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -935,7 +935,7 @@ gfc_build_final_call (gfc_typespec ts, gfc_expr *final_wrapper, gfc_expr *var, to zero. */ gfc_clear_attr (&attr); gfc_init_se (&se, NULL); - array = gfc_conv_scalar_to_descriptor (&se, array, attr); + array = gfc_conv_scalar_to_descriptor (&se, array, attr, &var->ts); gcc_assert (se.post.head == NULL_TREE); } } @@ -976,7 +976,7 @@ gfc_build_final_call (gfc_typespec ts, gfc_expr *final_wrapper, gfc_expr *var, to zero. */ gfc_clear_attr (&attr); gfc_init_se (&se, NULL); - array = gfc_conv_scalar_to_descriptor (&se, array, attr); + array = gfc_conv_scalar_to_descriptor (&se, array, attr, &var->ts); } gcc_assert (se.post.head == NULL_TREE); } @@ -1057,7 +1057,7 @@ gfc_add_comp_finalizer_call (stmtblock_t *block, tree decl, gfc_component *comp, { gfc_clear_attr (&attr); gfc_init_se (&se, NULL); - array = gfc_conv_scalar_to_descriptor (&se, array, attr); + array = gfc_conv_scalar_to_descriptor (&se, array, attr, &comp->ts); gfc_add_block_to_block (&block2, &se.pre); gcc_assert (se.post.head == NULL_TREE); } |