On Sun, Apr 26, 2015 at 08:35:06PM +0200, Paul Richard Thomas wrote:
>
> --- 7062,7091 ----
> {
> if (expr->expr_type != EXPR_STRUCTURE)
> {
> + tree dealloc = NULL_TREE;
> gfc_init_se (&se, NULL);
> gfc_conv_expr (&se, expr);
> gfc_add_block_to_block (&block, &se.pre);
> + /* Prevent repeat evaluations in gfc_copy_alloc_comp by fixing the
> + expression in a temporary variable and deallocate is allocatable
> + components the copy to the result. */
Can you take a second shot at this comment? The "and ..." portions
seems to be a little muddled.
OK with after comment fix.
--
Steve
