| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| trans-stmt.cc | 2410 DO dovar = from, to, step
2417 dovar = from;
2420 if (dovar > to)
2424 dovar += step;
2433 gfc_trans_simple_do (gfc_code * code, stmtblock_t *pblock, tree dovar,
2444 type = TREE_TYPE (dovar);
2449 /* Initialize the DO variable: dovar = from. */
2450 gfc_add_modify_loc (loc, pblock, dovar,
2451 fold_convert (TREE_TYPE (dovar), from));
2457 gfc_add_modify_loc (loc, pblock, saved_dovar, dovar);
2609 tree dovar; local
[all...] |
| trans-openmp.cc | 5820 tree dovar, stmt, from, to, step, type, init, cond, incr, orig_decls; local
5908 local_dovar = dovar_decl = dovar = se.expr;
5909 type = TREE_TYPE (dovar);
5946 if (!DECL_P (dovar))
5950 if (simple && !DECL_P (dovar))
5955 dovar, local_dovar, false};
5983 dovar = from + count * step;
6007 /* Initialize DOVAR. */
6012 dovar, tmp, true};
6027 && local_dovar != dovar)
[all...] |
| openmp.cc | 10761 gfc_symbol *dovar; local
10904 dovar = do_code->ext.iterator->var->symtree->n.sym;
10905 if (dovar->attr.threadprivate)
10919 if (dovar == n->sym)
10931 if (is_outer_iteration_variable (code, i, dovar))
10937 else if (is_intervening_var (code, i, dovar))
11279 gfc_symbol *dovar; local
11301 dovar = do_code->ext.iterator->var->symtree->n.sym;
11310 if (dovar == ivar
|
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| trans-stmt.cc | 2333 DO dovar = from, to, step
2340 dovar = from;
2343 if (dovar > to)
2347 dovar += step;
2356 gfc_trans_simple_do (gfc_code * code, stmtblock_t *pblock, tree dovar,
2367 type = TREE_TYPE (dovar);
2372 /* Initialize the DO variable: dovar = from. */
2373 gfc_add_modify_loc (loc, pblock, dovar,
2374 fold_convert (TREE_TYPE (dovar), from));
2380 gfc_add_modify_loc (loc, pblock, saved_dovar, dovar);
2531 tree dovar; local
[all...] |
| trans-openmp.cc | 5040 tree dovar, stmt, from, to, step, type, init, cond, incr, orig_decls; local
5127 dovar = se.expr;
5128 type = TREE_TYPE (dovar);
5145 dovar_decl = dovar;
5148 if (VAR_P (dovar))
5163 TREE_VEC_ELT (init, i) = build2_v (MODIFY_EXPR, dovar, from);
5167 logical_type_node, dovar, to);
5169 type, dovar, step);
5172 type, dovar,
5180 dovar = from + count * step
[all...] |
| openmp.cc | 8458 gfc_symbol *dovar; local
8588 dovar = do_code->ext.iterator->var->symtree->n.sym;
8589 if (dovar->attr.threadprivate)
8600 if (dovar == n->sym)
8620 if (dovar == ivar
8881 gfc_symbol *dovar; local
8903 dovar = do_code->ext.iterator->var->symtree->n.sym;
8912 if (dovar == ivar
|
