This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/79492] LHS reallocation, intrinsic function RHS, and -fcheck=all
- From: "sgk at troutmask dot apl.washington.edu" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Mon, 13 Feb 2017 19:13:37 +0000
- Subject: [Bug fortran/79492] LHS reallocation, intrinsic function RHS, and -fcheck=all
- Auto-submitted: auto-generated
- References: <bug-79492-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=79492
--- Comment #2 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Mon, Feb 13, 2017 at 06:54:16PM +0000, kargl at gcc dot gnu.org wrote:
>
> The suggested back is
s/back/fix
> Index: trans-expr.c
> ===================================================================
> --- trans-expr.c (revision 245254)
> +++ trans-expr.c (working copy)
> @@ -9811,7 +9811,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1
> /* Walk the lhs. */
> lss = gfc_walk_expr (expr1);
> if (gfc_is_reallocatable_lhs (expr1)
> - && !(expr2->expr_type == EXPR_FUNCTION
> + && (expr2->expr_type == EXPR_FUNCTION
> && expr2->value.function.isym != NULL))
> lss->is_alloc_lhs = 1;
> rss = NULL;
This seems to cause regressions.