re PR fortran/77694 (ICE in optimize_binop_array_assignment, at fortran/frontend-passes.c:1080)

2016-09-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77694
	* frontend-passes.c (optimize_binop_array_assignment): Check pointer
	for NULL.

2016-09-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/77694
	* gfortran.dg/pr77694.f90: New test.

From-SVN: r240476

gcc/fortran/ChangeLog

+2016-09-25  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/77694
+	* frontend-passes.c (optimize_binop_array_assignment): Check pointer
+	for NULL.
+
 2016-09-23  Fritz Reese  <fritzoreese@gmail.com>
 
 	* lang.opt, invoke.texi, gfortran.texi: New flag -fdec-static.

gcc/fortran/frontend-passes.c

@@ -1076,6 +1076,9 @@ optimize_binop_array_assignment (gfc_code *c, gfc_expr **rhs, bool seen_op)
 {
   gfc_expr *e;
 
+  if (!*rhs)
+    return false;
+
   e = *rhs;
   if (e->expr_type == EXPR_OP)
     {

gcc/testsuite/ChangeLog

+2016-09-25  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/77694
+	* gfortran.dg/pr77694.f90: New test.
+
 2016-09-25  Oleg Endo  <olegendo@gcc.gnu.org>
 
 	PR target/51244

gcc/testsuite/gfortran.dg/pr77694.f90

+! { dg-do compile }
+! { dg-options -O }
+program p
+   logical x(2), y(2)
+   x = .true.
+   y = .nt. x   ! { dg-error "Unknown operator" }
+end