gcc/fortran/match.c

399   gfc_expr *expr;
404   m = gfc_match_expr (&expr);
408   p = gfc_extract_int (expr, &i);
409   gfc_free_expr (expr);
423    we're keeping the pointer to the expr.  This function could just be
427    return the result of gfc_match_expr().  The expr (if any) that was
428    matched is returned in the parameter expr.  */
431 gfc_match_small_int_expr (int *value, gfc_expr **expr)
437   m = gfc_match_expr (expr);
441   p = gfc_extract_int (*expr, &i);
1302   gfc_expr *expr;
1305   m = gfc_match (" ( %e ) %l , %l , %l%t", &expr, &l1, &l2, &l3);
1313       gfc_free_expr (expr);
1321   new_st.expr1 = expr;
1346   gfc_expr *expr;
1358   m = gfc_match (" if ( %e", &expr);
1373       gfc_free_expr (expr);
1385 	  gfc_free_expr (expr);
1393 	  gfc_free_expr (expr);
1401       new_st.expr1 = expr;
1413       new_st.expr1 = expr;
1421       gfc_free_expr (expr);
1436   gfc_free_expr (expr);
1446   gfc_match (" if ( %e ) ", &expr);	/* Guaranteed to match.  */
1452   gfc_free_expr (expr);
1456   gfc_match (" if ( %e ) ", &expr);	/* Guaranteed to match.  */
1509       gfc_free_expr (expr);
1520   gfc_free_expr (expr);
1528       gfc_free_expr (expr);
1541   p->expr1 = expr;
1589   gfc_expr *expr;
1592   m = gfc_match (" ( %e ) then", &expr);
1616   new_st.expr1 = expr;
1620   gfc_free_expr (expr);
2768       until-spec  is  UNTIL_COUNT = scalar-int-expr
3158    with sync-stat is int-expr or *.  */
3367   gfc_expr *expr;
3374       if (gfc_match (" to %v%t", &expr) == MATCH_YES)
3379 	  expr->symtree->n.sym->attr.assign = 1;
3383 	  new_st.expr1 = expr;
3400   gfc_expr *expr;
3418   if (gfc_match_variable (&expr, 0) == MATCH_YES)
3424       new_st.expr1 = expr;
3522   if (gfc_match (" %e%t", &expr) != MATCH_YES)
3534   /* Hack: For a "real" SELECT, the expression is in expr. We put
3537   new_st.expr2 = expr;
3559       gfc_free_expr (p->expr);
3638       m = gfc_match_variable (&tail->expr, 0);
3644       if (gfc_check_do_variable (tail->expr->symtree))
3647       bool impure = gfc_impure_variable (tail->expr->symtree->n.sym);
3657       if (tail->expr->ts.deferred)
3660 	  deferred_locus = tail->expr->where;
3667 	  bool coarray = tail->expr->symtree->n.sym->attr.codimension;
3668 	  for (ref = tail->expr->ref; ref; ref = ref->next)
3685       sym = tail->expr->symtree->n.sym;
3686       b1 = !(tail->expr->ref
3687 	     && (tail->expr->ref->type == REF_COMPONENT
3688 		 || tail->expr->ref->type == REF_ARRAY));
3702 		     "nor an allocatable variable", &tail->expr->where);
3711 	  if (!gfc_type_compatible (&tail->expr->ts, &ts))
3714 			 "typespec", &tail->expr->where);
3719 	  if (ts.kind != tail->expr->ts.kind && !UNLIMITED_POLY (tail->expr))
3723 			 &tail->expr->where);
3728       if (tail->expr->ts.type == BT_DERIVED)
3729 	tail->expr->ts.u.derived = gfc_use_derived (tail->expr->ts.u.derived);
3731       saw_unlimited = saw_unlimited | UNLIMITED_POLY (tail->expr);
3890 	  if (UNLIMITED_POLY (tail->expr))
3893 		       "or a MOLD tag", &tail->expr->where);
4025       m = gfc_match_variable (&tail->expr, 0);
4031       if (gfc_check_do_variable (tail->expr->symtree))
4034       sym = tail->expr->symtree->n.sym;
4046       if (gfc_is_coarray (tail->expr)
4053       if (gfc_is_coarray (tail->expr)
4061       b1 = !(tail->expr->ref
4062 	   && (tail->expr->ref->type == REF_COMPONENT
4063 	       || tail->expr->ref->type == REF_ARRAY));
4352     if (a->expr == NULL)
4381 	  if (a->expr != NULL)
4638 		    if (e2->expr->symtree->n.sym == sym)
4647 		      other = e2->expr->symtree->n.sym;
4745       gfc_free_expr (name->expr);
4891   gfc_free_expr (eq->expr);
4936 	  m = gfc_match_equiv_variable (&set->expr);
4952 	  for (ref = set->expr->ref; ref; ref = ref->next)
4960 	  sym = set->expr->symtree->n.sym;
4994 	    sym = set->expr->symtree->n.sym;
5102   gfc_expr *expr;
5117   m = gfc_match (" = %e%t", &expr);
5126   if (recursive_stmt_fcn (expr, sym))
5128       gfc_error ("Statement function at %L is recursive", &expr->where);
5132   sym->value = expr;
5139 		 &expr->where);
5292   gfc_expr *expr;
5299   m = gfc_match (" select case ( %e )%t", &expr);
5304   new_st.expr1 = expr;
5823   gfc_expr *expr;
5827   m = gfc_match (" ( %e )", &expr);
5841   c->expr1 = expr;
5856   gfc_free_expr (expr);
5866   gfc_expr *expr;
5874   m = gfc_match (" where ( %e )", &expr);
5882       new_st.expr1 = expr;
5892       gfc_free_expr (expr);
5899   c->expr1 = expr;
5919   gfc_expr *expr;
5928   expr = NULL;
5932       m = gfc_match_expr (&expr);
5969   new_st.expr1 = expr;
5976   gfc_free_expr (expr);