2    Copyright (C) 2000-2020 Free Software Foundation, Inc.
31 /* Match a user-defined operator name.  This is a normal name with a
133   e2 = gfc_get_operator_expr (&e->where, INTRINSIC_PARENTHESES, e, NULL);  in gfc_get_parentheses()
134   e2->ts = e->ts;  in gfc_get_parentheses()
135   e2->rank = e->rank;  in gfc_get_parentheses()
220       f->value.op.uop = uop;  in match_level_1()
228 /* As a GNU extension we support an expanded level-2 expression syntax.
233 	R704  mult-operand     is level-1-expr [ power-op ext-mult-operand ]
234 	R704' ext-mult-operand is add-op ext-mult-operand
235 			       or mult-operand
236 	R705  add-operand      is add-operand mult-op ext-mult-operand
237 			       or mult-operand
238 	R705' ext-add-operand  is add-op ext-add-operand
239 			       or add-operand
240 	R706  level-2-expr     is [ level-2-expr ] add-op ext-add-operand
241 			       or add-operand
251     return -1;  in match_add_op()
261   /* Workaround -Wmaybe-uninitialized false positive during  in match_mult_operand()
296   r->where = where;  in match_mult_operand()
306   gfc_expr *all, *e;  in match_ext_mult_operand()  local
331   if (i == -1)  in match_ext_mult_operand()
332     all = gfc_uminus (e);  in match_ext_mult_operand()
334     all = gfc_uplus (e);  in match_ext_mult_operand()
336   if (all == NULL)  in match_ext_mult_operand()
342   all->where = where;  in match_ext_mult_operand()
343   *result = all;  in match_ext_mult_operand()
351   gfc_expr *all, *e, *total;  in match_add_operand()  local
356   m = match_mult_operand (&all);  in match_add_operand()
387 	  gfc_free_expr (all);  in match_add_operand()
392 	total = gfc_multiply (all, e);  in match_add_operand()
394 	total = gfc_divide (all, e);  in match_add_operand()
398 	  gfc_free_expr (all);  in match_add_operand()
403       all = total;  in match_add_operand()
404       all->where = where;  in match_add_operand()
407   *result = all;  in match_add_operand()
415   gfc_expr *all, *e;  in match_ext_add_operand()  local
440   if (i == -1)  in match_ext_add_operand()
441     all = gfc_uminus (e);  in match_ext_add_operand()
443     all = gfc_uplus (e);  in match_ext_add_operand()
445   if (all == NULL)  in match_ext_add_operand()
451   all->where = where;  in match_ext_add_operand()
452   *result = all;  in match_ext_add_operand()
462   gfc_expr *all, *e, *total;  in match_level_2()  local
486     all = e;  in match_level_2()
489       if (i == -1)  in match_level_2()
490 	all = gfc_uminus (e);  in match_level_2()
492 	all = gfc_uplus (e);  in match_level_2()
494       if (all == NULL)  in match_level_2()
501   all->where = where;  in match_level_2()
503   /* Append add-operands to the sum.  */  in match_level_2()
517 	  gfc_free_expr (all);  in match_level_2()
521       if (i == -1)  in match_level_2()
522 	total = gfc_subtract (all, e);  in match_level_2()
524 	total = gfc_add (all, e);  in match_level_2()
528 	  gfc_free_expr (all);  in match_level_2()
533       all = total;  in match_level_2()
534       all->where = where;  in match_level_2()
537   *result = all;  in match_level_2()
547   gfc_expr *all, *e, *total = NULL;  in match_level_3()  local
551   m = match_level_2 (&all);  in match_level_3()
567 	  gfc_free_expr (all);  in match_level_3()
571       total = gfc_concat (all, e);  in match_level_3()
574 	  gfc_free_expr (all);  in match_level_3()
579       all = total;  in match_level_3()
580       all->where = where;  in match_level_3()
583   *result = all;  in match_level_3()
675   r->where = where;  in match_level_4()
708   r->where = where;  in match_and_operand()
718   gfc_expr *all, *e, *total;  in match_or_operand()  local
722   m = match_and_operand (&all);  in match_or_operand()
737 	  gfc_free_expr (all);  in match_or_operand()
741       total = gfc_and (all, e);  in match_or_operand()
744 	  gfc_free_expr (all);  in match_or_operand()
749       all = total;  in match_or_operand()
750       all->where = where;  in match_or_operand()
753   *result = all;  in match_or_operand()
761   gfc_expr *all, *e, *total;  in match_equiv_operand()  local
765   m = match_or_operand (&all);  in match_equiv_operand()
780 	  gfc_free_expr (all);  in match_equiv_operand()
784       total = gfc_or (all, e);  in match_equiv_operand()
787 	  gfc_free_expr (all);  in match_equiv_operand()
792       all = total;  in match_equiv_operand()
793       all->where = where;  in match_equiv_operand()
796   *result = all;  in match_equiv_operand()
806   gfc_expr *all, *e, *total;  in match_level_5()  local
811   m = match_equiv_operand (&all);  in match_level_5()
834 	  gfc_free_expr (all);  in match_level_5()
839 	total = gfc_eqv (all, e);  in match_level_5()
841 	total = gfc_neqv (all, e);  in match_level_5()
845 	  gfc_free_expr (all);  in match_level_5()
850       all = total;  in match_level_5()
851       all->where = where;  in match_level_5()
854   *result = all;  in match_level_5()
865   gfc_expr *all, *e;  in gfc_match_expr()  local
870   m = match_level_5 (&all);  in gfc_match_expr()
882 	  gfc_free_expr (all);  in gfc_match_expr()
893 	  gfc_free_expr (all);  in gfc_match_expr()
897       all = gfc_get_operator_expr (&where, INTRINSIC_USER, all, e);  in gfc_match_expr()
898       all->value.op.uop = uop;  in gfc_match_expr()
901   *result = all;  in gfc_match_expr()