On Sat, Apr 4, 2020 at 2:58 PM Steve Kargl via Fortran
<fort...@gcc.gnu.org> wrote:
>
> This patch fixes the ICE found in PR93686.
>
>
> Index: gcc/fortran/decl.c
> ===================================================================
> --- gcc/fortran/decl.c  (revision 280157)
> +++ gcc/fortran/decl.c  (working copy)
> @@ -696,6 +696,10 @@ gfc_match_data (void)
>           /* F2008:C567 (R536) A data-i-do-object or a variable that appears
>              as a data-stmt-object shall not be an object designator in which
>              a pointer appears other than as the entire rightmost part-ref.  
> */
> +         if (!e->ref && e->ts.type == BT_DERIVED
> +             && e->symtree->n.sym->attr.pointer)
> +           goto partref;
> +
>           ref = e->ref;
>           if (e->symtree->n.sym->ts.type == BT_DERIVED
>               && e->symtree->n.sym->attr.pointer
>
> --
> Steve

LGTM, thanks for the patch. I will commit along with the testcases from the PR.

---
Fritz

Reply via email to