gcc/fortran/matchexp.c

306   gfc_expr *all, *e;
332     all = gfc_uminus (e);
334     all = gfc_uplus (e);
336   if (all == NULL)
342   all->where = where;
343   *result = all;
351   gfc_expr *all, *e, *total;
356   m = match_mult_operand (&all);
387 	  gfc_free_expr (all);
392 	total = gfc_multiply (all, e);
394 	total = gfc_divide (all, e);
398 	  gfc_free_expr (all);
403       all = total;
404       all->where = where;
407   *result = all;
415   gfc_expr *all, *e;
441     all = gfc_uminus (e);
443     all = gfc_uplus (e);
445   if (all == NULL)
451   all->where = where;
452   *result = all;
462   gfc_expr *all, *e, *total;
486     all = e;
490 	all = gfc_uminus (e);
492 	all = gfc_uplus (e);
494       if (all == NULL)
501   all->where = where;
517 	  gfc_free_expr (all);
522 	total = gfc_subtract (all, e);
524 	total = gfc_add (all, e);
528 	  gfc_free_expr (all);
533       all = total;
534       all->where = where;
537   *result = all;
547   gfc_expr *all, *e, *total = NULL;
551   m = match_level_2 (&all);
567 	  gfc_free_expr (all);
571       total = gfc_concat (all, e);
574 	  gfc_free_expr (all);
579       all = total;
580       all->where = where;
583   *result = all;
718   gfc_expr *all, *e, *total;
722   m = match_and_operand (&all);
737 	  gfc_free_expr (all);
741       total = gfc_and (all, e);
744 	  gfc_free_expr (all);
749       all = total;
750       all->where = where;
753   *result = all;
761   gfc_expr *all, *e, *total;
765   m = match_or_operand (&all);
780 	  gfc_free_expr (all);
784       total = gfc_or (all, e);
787 	  gfc_free_expr (all);
792       all = total;
793       all->where = where;
796   *result = all;
806   gfc_expr *all, *e, *total;
811   m = match_equiv_operand (&all);
834 	  gfc_free_expr (all);
839 	total = gfc_eqv (all, e);
841 	total = gfc_neqv (all, e);
845 	  gfc_free_expr (all);
850       all = total;
851       all->where = where;
854   *result = all;
865   gfc_expr *all, *e;
870   m = match_level_5 (&all);
882 	  gfc_free_expr (all);
893 	  gfc_free_expr (all);
897       all = gfc_get_operator_expr (&where, INTRINSIC_USER, all, e);
898       all->value.op.uop = uop;
901   *result = all;