Lines Matching refs:co
250 gfc_code *co = *c;
255 if (co->op != EXEC_ASSIGN)
258 expr1 = co->expr1;
267 expr2 = gfc_discard_nops (co->expr2);
302 co->expr2 = n;
1037 gfc_code *co = *c;
1042 if (co->op != EXEC_DO_WHILE)
1045 if (co->expr1 == NULL || co->expr1->expr_type == EXPR_CONSTANT)
1048 e_cond = co->expr1;
1062 c_exit->ext.which_construct = co;
1063 c_exit->loc = co->loc;
1070 c_if2->loc = co->loc;
1076 c_if1->loc = co->loc;
1080 co->expr1 = gfc_get_logical_expr (gfc_default_integer_kind, &co->loc, true);
1084 loopblock = co->block->next;
1085 co->block->next = c_if1;
1111 gfc_code *co = *c;
1114 if (co->op != EXEC_IF)
1118 else_stmt = co->block->block;
2384 gfc_code *co = *c;
2391 switch (co->op)
2394 if (co->expr1->symtree && co->expr1->symtree->n.sym == do_var)
2395 gfc_error_now (errmsg, do_var->name, &co->loc, info->procedure->name,
2400 if (co->ext.iterator && co->ext.iterator->var
2401 && co->ext.iterator->var->symtree->n.sym == do_var)
2402 gfc_error (errmsg, do_var->name, &co->loc, info->procedure->name,
2411 last_io_op = co->op;
2415 if (co->ext.open && co->ext.open->iostat
2416 && co->ext.open->iostat->symtree->n.sym == do_var)
2417 gfc_error_now (errmsg, do_var->name, &co->ext.open->iostat->where,
2422 if (co->ext.close && co->ext.close->iostat
2423 && co->ext.close->iostat->symtree->n.sym == do_var)
2424 gfc_error_now (errmsg, do_var->name, &co->ext.close->iostat->where,
2433 #define CHECK_INQ(a) do { if (co->ext.inquire && \
2434 co->ext.inquire->a && \
2435 co->ext.inquire->a->symtree->n.sym == do_var) \
2437 &co->ext.inquire->a->where, \
2453 if (co->expr1 && co->expr1->symtree
2454 && co->expr1->symtree->n.sym == do_var)
2455 gfc_error_now (errmsg, do_var->name, &co->expr1->where,
2461 if (co->ext.dt && co->ext.dt->iostat && co->ext.dt->iostat->symtree
2462 && co->ext.dt->iostat->symtree->n.sym == do_var)
2463 gfc_error_now (errmsg, do_var->name, &co->ext.dt->iostat->where,
2468 if (co->expr1 && co->expr1->symtree
2469 && co->expr1->symtree->n.sym == do_var)
2470 gfc_error_now (errmsg, do_var->name, &co->expr1->where,
2487 f = gfc_sym_get_dummy_args (co->resolved_sym);
2490 a = co->ext.actual;
2533 gfc_code *co;
2541 co = *c;
2549 switch (co->op)
2553 if (co->ext.iterator && co->ext.iterator->var)
2554 loop.c = co;
2575 if (co->ext.open->err)
2580 if (co->ext.close->err)
2589 if (co->ext.filepos->err)
2594 if (co->ext.filepos->err)
2600 if (co->ext.dt->err || co->ext.dt->end || co->ext.dt->eor)
2605 if (co->ext.wait->err || co->ext.wait->end || co->ext.wait->eor)
2610 if (co->resolved_sym == NULL)
2615 if (co->resolved_sym->attr.contained)
2619 gfc_symbol *sym = co->resolved_sym;
2625 info.procedure = co->resolved_sym; /* sym? */
2626 info.where_do = co->loc;
2636 f = gfc_sym_get_dummy_args (co->resolved_sym);
2643 a = co->ext.actual;
2666 co->symtree->n.sym->name);
2673 co->symtree->n.sym->name);
3146 gfc_code *co;
3152 co = *c;
3154 if (co->op != EXEC_ASSIGN)
3165 expr1 = co->expr1;
3166 expr2 = co->expr2;
4103 gfc_code *co = *c;
4124 if (co->op != EXEC_ASSIGN)
4141 expr1 = co->expr1;
4142 expr2 = co->expr2;
4288 if_limit->block->block->next = co;
4289 co->next = NULL;
4300 assign_zero->loc = co->loc;
4443 zero = gfc_get_int_expr (gfc_index_integer_kind, &co->loc, 0);
4447 assign_matmul->loc = co->loc;
4460 do_1 = create_do_loop (gfc_copy_expr (zero), u1, NULL, &co->loc, ns);
4461 do_2 = create_do_loop (gfc_copy_expr (zero), u2, NULL, &co->loc, ns);
4462 do_3 = create_do_loop (gfc_copy_expr (zero), u3, NULL, &co->loc, ns);
4474 cscalar = scalarized_expr (co->expr1, list, 2);
4492 do_1 = create_do_loop (gfc_copy_expr (zero), u1, NULL, &co->loc, ns);
4493 do_2 = create_do_loop (gfc_copy_expr (zero), u2, NULL, &co->loc, ns);
4494 do_3 = create_do_loop (gfc_copy_expr (zero), u3, NULL, &co->loc, ns);
4506 cscalar = scalarized_expr (co->expr1, list, 2);
4524 do_1 = create_do_loop (gfc_copy_expr (zero), u1, NULL, &co->loc, ns);
4525 do_2 = create_do_loop (gfc_copy_expr (zero), u2, NULL, &co->loc, ns);
4526 do_3 = create_do_loop (gfc_copy_expr (zero), u3, NULL, &co->loc, ns);
4538 cscalar = scalarized_expr (co->expr1, list, 2);
4554 do_1 = create_do_loop (gfc_copy_expr (zero), u1, NULL, &co->loc, ns);
4555 do_2 = create_do_loop (gfc_copy_expr (zero), u2, NULL, &co->loc, ns);
4564 cscalar = scalarized_expr (co->expr1, list, 1);
4579 do_1 = create_do_loop (gfc_copy_expr (zero), u1, NULL, &co->loc, ns);
4580 do_2 = create_do_loop (gfc_copy_expr (zero), u2, NULL, &co->loc, ns);
4589 cscalar = scalarized_expr (co->expr1, list, 1);
4636 gfc_free_statements(co);
4638 co->next = NULL;
4655 gfc_code *co, *co_next;
4674 co = *c;
4676 if (co->op != EXEC_ASSIGN)
4693 expr1 = co->expr1;
4694 expr2 = co->expr2;
4796 co_next = co->next;
4798 co->next = NULL;
4799 if_limit->block->next = co;
4802 call->loc = co->loc;
4944 next->expr = gfc_get_character_expr (gfc_default_character_kind, &co->loc,
4952 next->expr = gfc_get_character_expr (gfc_default_character_kind, &co->loc,
4985 next->expr = gfc_get_constant_expr (type, kind, &co->loc);
5021 next->expr = gfc_get_constant_expr (type, kind, &co->loc);
5148 gfc_code *co;
5149 co = *c;
5155 if (co->op != EXEC_FORALL && co->op != EXEC_DO_CONCURRENT)
5159 for (fa = co->ext.forall_iterator; fa; fa = fa->next)
5169 for (fa = co->ext.forall_iterator; fa; fa = fa->next)
5185 co->ext.forall_iterator = fa = ind[0].fa;
5200 "Interchanging loops at %L", &co->loc);
5349 gfc_code *co;
5358 co = *c;
5363 switch (co->op)
5367 WALK_SUBCODE (co->ext.block.ns->code);
5368 if (co->ext.block.assoc)
5373 for (alist = co->ext.block.assoc; alist; alist = alist->next)
5383 WALK_SUBEXPR (co->ext.iterator->var);
5384 WALK_SUBEXPR (co->ext.iterator->start);
5385 WALK_SUBEXPR (co->ext.iterator->end);
5386 WALK_SUBEXPR (co->ext.iterator->step);
5399 for (a = co->ext.actual; a; a = a->next)
5404 WALK_SUBEXPR (co->expr1);
5405 for (a = co->ext.actual; a; a = a->next)
5410 WALK_SUBEXPR (co->expr1);
5412 for (b = co->block; b; b = b->block)
5428 for (a = co->ext.alloc.list; a; a = a->next)
5437 for (fa = co->ext.forall_iterator; fa; fa = fa->next)
5444 if (co->op == EXEC_FORALL)
5450 WALK_SUBEXPR (co->ext.open->unit);
5451 WALK_SUBEXPR (co->ext.open->file);
5452 WALK_SUBEXPR (co->ext.open->status);
5453 WALK_SUBEXPR (co->ext.open->access);
5454 WALK_SUBEXPR (co->ext.open->form);
5455 WALK_SUBEXPR (co->ext.open->recl);
5456 WALK_SUBEXPR (co->ext.open->blank);
5457 WALK_SUBEXPR (co->ext.open->position);
5458 WALK_SUBEXPR (co->ext.open->action);
5459 WALK_SUBEXPR (co->ext.open->delim);
5460 WALK_SUBEXPR (co->ext.open->pad);
5461 WALK_SUBEXPR (co->ext.open->iostat);
5462 WALK_SUBEXPR (co->ext.open->iomsg);
5463 WALK_SUBEXPR (co->ext.open->convert);
5464 WALK_SUBEXPR (co->ext.open->decimal);
5465 WALK_SUBEXPR (co->ext.open->encoding);
5466 WALK_SUBEXPR (co->ext.open->round);
5467 WALK_SUBEXPR (co->ext.open->sign);
5468 WALK_SUBEXPR (co->ext.open->asynchronous);
5469 WALK_SUBEXPR (co->ext.open->id);
5470 WALK_SUBEXPR (co->ext.open->newunit);
5471 WALK_SUBEXPR (co->ext.open->share);
5472 WALK_SUBEXPR (co->ext.open->cc);
5476 WALK_SUBEXPR (co->ext.close->unit);
5477 WALK_SUBEXPR (co->ext.close->status);
5478 WALK_SUBEXPR (co->ext.close->iostat);
5479 WALK_SUBEXPR (co->ext.close->iomsg);
5486 WALK_SUBEXPR (co->ext.filepos->unit);
5487 WALK_SUBEXPR (co->ext.filepos->iostat);
5488 WALK_SUBEXPR (co->ext.filepos->iomsg);
5492 WALK_SUBEXPR (co->ext.inquire->unit);
5493 WALK_SUBEXPR (co->ext.inquire->file);
5494 WALK_SUBEXPR (co->ext.inquire->iomsg);
5495 WALK_SUBEXPR (co->ext.inquire->iostat);
5496 WALK_SUBEXPR (co->ext.inquire->exist);
5497 WALK_SUBEXPR (co->ext.inquire->opened);
5498 WALK_SUBEXPR (co->ext.inquire->number);
5499 WALK_SUBEXPR (co->ext.inquire->named);
5500 WALK_SUBEXPR (co->ext.inquire->name);
5501 WALK_SUBEXPR (co->ext.inquire->access);
5502 WALK_SUBEXPR (co->ext.inquire->sequential);
5503 WALK_SUBEXPR (co->ext.inquire->direct);
5504 WALK_SUBEXPR (co->ext.inquire->form);
5505 WALK_SUBEXPR (co->ext.inquire->formatted);
5506 WALK_SUBEXPR (co->ext.inquire->unformatted);
5507 WALK_SUBEXPR (co->ext.inquire->recl);
5508 WALK_SUBEXPR (co->ext.inquire->nextrec);
5509 WALK_SUBEXPR (co->ext.inquire->blank);
5510 WALK_SUBEXPR (co->ext.inquire->position);
5511 WALK_SUBEXPR (co->ext.inquire->action);
5512 WALK_SUBEXPR (co->ext.inquire->read);
5513 WALK_SUBEXPR (co->ext.inquire->write);
5514 WALK_SUBEXPR (co->ext.inquire->readwrite);
5515 WALK_SUBEXPR (co->ext.inquire->delim);
5516 WALK_SUBEXPR (co->ext.inquire->encoding);
5517 WALK_SUBEXPR (co->ext.inquire->pad);
5518 WALK_SUBEXPR (co->ext.inquire->iolength);
5519 WALK_SUBEXPR (co->ext.inquire->convert);
5520 WALK_SUBEXPR (co->ext.inquire->strm_pos);
5521 WALK_SUBEXPR (co->ext.inquire->asynchronous);
5522 WALK_SUBEXPR (co->ext.inquire->decimal);
5523 WALK_SUBEXPR (co->ext.inquire->pending);
5524 WALK_SUBEXPR (co->ext.inquire->id);
5525 WALK_SUBEXPR (co->ext.inquire->sign);
5526 WALK_SUBEXPR (co->ext.inquire->size);
5527 WALK_SUBEXPR (co->ext.inquire->round);
5531 WALK_SUBEXPR (co->ext.wait->unit);
5532 WALK_SUBEXPR (co->ext.wait->iostat);
5533 WALK_SUBEXPR (co->ext.wait->iomsg);
5534 WALK_SUBEXPR (co->ext.wait->id);
5539 WALK_SUBEXPR (co->ext.dt->io_unit);
5540 WALK_SUBEXPR (co->ext.dt->format_expr);
5541 WALK_SUBEXPR (co->ext.dt->rec);
5542 WALK_SUBEXPR (co->ext.dt->advance);
5543 WALK_SUBEXPR (co->ext.dt->iostat);
5544 WALK_SUBEXPR (co->ext.dt->size);
5545 WALK_SUBEXPR (co->ext.dt->iomsg);
5546 WALK_SUBEXPR (co->ext.dt->id);
5547 WALK_SUBEXPR (co->ext.dt->pos);
5548 WALK_SUBEXPR (co->ext.dt->asynchronous);
5549 WALK_SUBEXPR (co->ext.dt->blank);
5550 WALK_SUBEXPR (co->ext.dt->decimal);
5551 WALK_SUBEXPR (co->ext.dt->delim);
5552 WALK_SUBEXPR (co->ext.dt->pad);
5553 WALK_SUBEXPR (co->ext.dt->round);
5554 WALK_SUBEXPR (co->ext.dt->sign);
5555 WALK_SUBEXPR (co->ext.dt->extra_comma);
5632 if (co->ext.omp_clauses)
5639 WALK_SUBEXPR (co->ext.omp_clauses->if_expr);
5640 WALK_SUBEXPR (co->ext.omp_clauses->final_expr);
5641 WALK_SUBEXPR (co->ext.omp_clauses->num_threads);
5642 WALK_SUBEXPR (co->ext.omp_clauses->chunk_size);
5643 WALK_SUBEXPR (co->ext.omp_clauses->safelen_expr);
5644 WALK_SUBEXPR (co->ext.omp_clauses->simdlen_expr);
5645 WALK_SUBEXPR (co->ext.omp_clauses->num_teams_lower);
5646 WALK_SUBEXPR (co->ext.omp_clauses->num_teams_upper);
5647 WALK_SUBEXPR (co->ext.omp_clauses->device);
5648 WALK_SUBEXPR (co->ext.omp_clauses->thread_limit);
5649 WALK_SUBEXPR (co->ext.omp_clauses->dist_chunk_size);
5650 WALK_SUBEXPR (co->ext.omp_clauses->grainsize);
5651 WALK_SUBEXPR (co->ext.omp_clauses->hint);
5652 WALK_SUBEXPR (co->ext.omp_clauses->num_tasks);
5653 WALK_SUBEXPR (co->ext.omp_clauses->priority);
5654 WALK_SUBEXPR (co->ext.omp_clauses->detach);
5656 WALK_SUBEXPR (co->ext.omp_clauses->if_exprs[idx]);
5660 for (n = co->ext.omp_clauses->lists[list_types[idx]];
5669 WALK_SUBEXPR (co->expr1);
5670 WALK_SUBEXPR (co->expr2);
5671 WALK_SUBEXPR (co->expr3);
5672 WALK_SUBEXPR (co->expr4);
5673 for (b = co->block; b; b = b->block)
5680 if (co->op == EXEC_FORALL)
5683 if (co->op == EXEC_DO)
5686 if (co->op == EXEC_IF)
5689 if (co->op == EXEC_SELECT)
5767 gfc_code *co = *c;
5772 if (co->op != EXEC_CALL)
5775 sym = co->resolved_sym;
5776 loc = &co->loc;
5777 actual = co->ext.actual;
5891 gfc_code *co = *c;
5895 if (co->op != EXEC_CALL || co->resolved_sym == NULL)
5898 a = &co->resolved_sym->attr;
Indexes created Fri Apr 03 00:24:04 UTC 2026