Home | History | Annotate | Download | only in fortran

Lines Matching refs:var_expr

10594    NVAR is the number of FORALL index variables, and VAR_EXPR records the
10598 gfc_resolve_assign_in_forall (gfc_code *code, int nvar, gfc_expr **var_expr)
10606       forall_index = var_expr[n]->symtree->n.sym;
10624 			 var_expr[n]->symtree->name, &code->expr1->where);
10634 				  gfc_expr **var_expr)
10651 	      gfc_resolve_assign_in_forall (cnext, nvar, var_expr);
10664 	      gfc_resolve_where_code_in_forall (cnext, nvar, var_expr);
10686 gfc_resolve_forall_body (gfc_code *code, int nvar, gfc_expr **var_expr)
10697 	  gfc_resolve_assign_in_forall (c, nvar, var_expr);
10709 	  gfc_resolve_where_code_in_forall(c, nvar, var_expr);
10760   static gfc_expr **var_expr;
10775          construct in order to allocate the VAR_EXPR with proper size.  */
10778       /* Allocate VAR_EXPR with NUMBER_OF_FORALL_INDEX elements.  */
10779       var_expr = XCNEWVEC (gfc_expr *, total_var);
10798 	  if (fa->var->symtree->n.sym == var_expr[i]->symtree->n.sym)
10804       var_expr[nvar] = gfc_copy_expr (fa->var);
10813   gfc_resolve_forall_body (code, nvar, var_expr);
10822      gfc_free_expr (var_expr[i]);
10829       /* VAR_EXPR is not needed any more.  */
10830       free (var_expr);