Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/match.cc

Lines Matching defs:expr1
1362   new_st.expr1 = lvalue;
1406   new_st.expr1 = lvalue;
1448   new_st.expr1 = expr;
1539       new_st.expr1 = expr;
1551       new_st.expr1 = expr;
1674   p->expr1 = expr;
1777   new_st.expr1 = expr;
2498   new_st.expr1 = mask;
2548       new_st.expr1 = mask;
2571   new_st.expr1 = mask;
2661       new_st.expr1 = mask;
2716     new_st.expr1 = iter.end;
3225   new_st.expr1 = e;
3430   new_st.expr1 = eventvar;
3525   new_st.expr1 = teamid;
3559   new_st.expr1 = team;
3613   new_st.expr1 = team;
3772   new_st.expr1 = lockvar;
3960   new_st.expr1 = imageset;
4046 	  new_st.expr1 = expr;
4087       new_st.expr1 = expr;
4195   new_st.expr1 = NULL;
4610   new_st.expr1 = stat;
4705       tail->expr1 = p;
4722   gfc_free_expr (new_st.expr1);
4723   new_st.expr1 = NULL;
4875   new_st.expr1 = stat;
4956   new_st.expr1 = e;
5004   new_st.expr1 = base;
5127       c->expr1 = gfc_get_expr ();
5128       c->expr1->expr_type = EXPR_VARIABLE;
5129       c->expr1->symtree = select_st;
5130       c->expr1->ts = select_sym->ts;
5131       c->expr1->where = gfc_current_locus;
6054   new_st.expr1 = expr;
6242   new_st.expr1 = expr;
6493   gfc_expr *expr1, *expr2 = NULL;
6519       expr1 = gfc_get_expr ();
6520       expr1->expr_type = EXPR_VARIABLE;
6521       expr1->where = expr2->where;
6522       if (gfc_get_sym_tree (name, NULL, &expr1->symtree, false))
6528       sym = expr1->symtree->n.sym;
6532 	copy_ts_from_selector_to_associate (expr1, expr2);
6540       m = gfc_match (" %e ", &expr1);
6562   class_array = (expr1->expr_type == EXPR_VARIABLE
6563 		 && expr1->ts.type == BT_CLASS
6564 		 && CLASS_DATA (expr1)
6565 		 && (strcmp (CLASS_DATA (expr1)->name, "_data") == 0)
6566 		 && (CLASS_DATA (expr1)->attr.dimension
6567 		     || CLASS_DATA (expr1)->attr.codimension)
6568 		 && expr1->ref
6569 		 && expr1->ref->type == REF_ARRAY
6570 		 && expr1->ref->u.ar.type == AR_FULL
6571 		 && expr1->ref->next == NULL);
6574   if (!expr2 && (expr1->expr_type != EXPR_VARIABLE
6575 		 || (!class_array && expr1->ref != NULL)))
6584   new_st.expr1 = expr1;
6588   select_type_push (expr1->symtree->n.sym);
6594   gfc_free_expr (expr1);
6718   gfc_expr *expr1, *expr2 = NULL;
6740       expr1 = gfc_get_expr ();
6741       expr1->expr_type = EXPR_VARIABLE;
6742       expr1->where = expr2->where;
6743       expr1->ref = gfc_copy_ref (expr2->ref);
6744       if (gfc_get_sym_tree (name, NULL, &expr1->symtree, false))
6750       sym = expr1->symtree->n.sym;
6770 	  copy_ts_from_selector_to_associate (expr1, expr2);
6796       m = gfc_match (" %e ", &expr1);
6806       if (expr1->symtree)
6808 	  sym = expr1->symtree->n.sym;
6813       if (expr1->expr_type != EXPR_VARIABLE
6831   new_st.expr1 = expr1;
6835   select_type_push (expr1->symtree->n.sym);
6841   gfc_free_expr (expr1);
7198   c->expr1 = expr;
7240       new_st.expr1 = expr;
7257   c->expr1 = expr;
7331   new_st.expr1 = expr;
OpenGrok
