trans-stmt.c (gfc_trans_call): fix gcc_assert to a comparison, not an assignment.

2007-06-07  Dirk Mueller  <dmueller@suse.de>

        * trans-stmt.c (gfc_trans_call): fix gcc_assert to
        a comparison, not an assignment.

        * optabls.c (debug_optab_libfuncs): fix gcc_assert to
        a comparison, not an assignment.

From-SVN: r125647

gcc/ChangeLog

+2007-06-12  Dirk Mueller  <dmueller@suse.de>
+
+	* trans-stmt.c (gfc_trans_call): fix gcc_assert to
+	a comparison, not an assignment.
+
 2007-06-12  Olivier Hainque  <hainque@adacore.com>
 
 	* tree-nested.c (convert_local_reference): Handle VIEW_CONVERT_EXPR.

gcc/fortran/ChangeLog

+2007-06-12  Dirk Mueller  <dmueller@suse.de>
+
+	* optabls.c (debug_optab_libfuncs): fix gcc_assert to
+	a comparison, not an assignment.
+
 2007-06-12  Paul Thomas  <pault@gcc.gnu.org>
 
 	* trans-common.c (create_common): Initialize 'field_init'.

gcc/fortran/trans-stmt.c

@@ -387,8 +387,8 @@ gfc_trans_call (gfc_code * code, bool dependency_check)
 	{
 	  gfc_symbol *sym;
 	  sym = code->resolved_sym;
-	  gcc_assert (sym->formal->sym->attr.intent = INTENT_OUT);
-	  gcc_assert (sym->formal->next->sym->attr.intent = INTENT_IN);
+	  gcc_assert (sym->formal->sym->attr.intent == INTENT_OUT);
+	  gcc_assert (sym->formal->next->sym->attr.intent == INTENT_IN);
 	  gfc_conv_elemental_dependencies (&se, &loopse, sym,
 					   code->ext.actual);
 	}

gcc/optabs.c

@@ -5833,7 +5833,7 @@ debug_optab_libfuncs (void)
 	h = &o->handlers[j];
 	if (h->libfunc)
 	  {
-	    gcc_assert (GET_CODE (h->libfunc) = SYMBOL_REF);
+	    gcc_assert (GET_CODE (h->libfunc) == SYMBOL_REF);
 	    fprintf (stderr, "%s\t%s:\t%s\n",
 		     GET_RTX_NAME (o->code),
 		     GET_MODE_NAME (j),
@@ -5853,7 +5853,7 @@ debug_optab_libfuncs (void)
 	  h = &o->handlers[j][k];
 	  if (h->libfunc)
 	    {
-	      gcc_assert (GET_CODE (h->libfunc) = SYMBOL_REF);
+	      gcc_assert (GET_CODE (h->libfunc) == SYMBOL_REF);
 	      fprintf (stderr, "%s\t%s\t%s:\t%s\n",
 		       GET_RTX_NAME (o->code),
 		       GET_MODE_NAME (j),