[Bug fortran/92050] internal compiler error: in gfc_conv_procedure_call

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92050

--- Comment #3 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Thu, Oct 10, 2019 at 05:25:10PM +0000, sgk at troutmask dot
apl.washington.edu wrote:
> --- Comment #2 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
> This patch allows the code to compile, but I have no idea
> if it is correct.
> 
> Index: trans-expr.c
> ===================================================================
> --- trans-expr.c        (revision 276837)
> +++ trans-expr.c        (working copy)
> @@ -7031,8 +7031,10 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym
>         gfc_allocate_lang_decl (result);
>        GFC_DECL_SAVED_DESCRIPTOR (result) = parmse.expr;
>        gfc_free_expr (class_expr);
> -      gcc_assert (parmse.pre.head == NULL_TREE
> -                 && parmse.post.head == NULL_TREE);
> +      if ((gfc_option.rtcheck & GFC_RTCHECK_BOUNDS)
> +         && parmse.pre.head == NULL_TREE)
> +       gcc_unreachable ();
> +      gcc_assert (parmse.post.head == NULL_TREE);
>      }

Bummer patch causes regression.  The only fix seems to
be to remove the assert that parmse.pre.head == NULL_TREE.