[Bug fortran/69396] ICE on type mismatch, in update_ppc_arglist, at fortran/resolve.c:5580

[dominiq at lps dot ens.fr]

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

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The ICE is gone with the untested following patch

--- ../_clean/gcc/fortran/resolve.c     2016-01-15 21:42:34.000000000 +0100
+++ gcc/fortran/resolve.c       2016-01-20 23:28:57.000000000 +0100
@@ -5577,7 +5578,9 @@ update_ppc_arglist (gfc_expr* e)
       return false;
     }

-  gcc_assert (tb->pass_arg_num > 0);
+  /* gcc_assert (tb->pass_arg_num > 0); */
+  if (tb->pass_arg_num <= 0)
+    return false;
   e->value.compcall.actual = update_arglist_pass (e->value.compcall.actual,
po,
                                                  tb->pass_arg_num,
                                                  tb->pass_arg);