Home
last modified time | relevance | path

Searched refs:omp_clauses (Results 1 – 22 of 22) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddump-parse-tree.cc1444 show_omp_clauses (gfc_omp_clauses *omp_clauses) in show_omp_clauses() argument
1448 switch (omp_clauses->cancel) in show_omp_clauses()
1465 if (omp_clauses->if_expr) in show_omp_clauses()
1468 show_expr (omp_clauses->if_expr); in show_omp_clauses()
1471 if (omp_clauses->final_expr) in show_omp_clauses()
1474 show_expr (omp_clauses->final_expr); in show_omp_clauses()
1477 if (omp_clauses->num_threads) in show_omp_clauses()
1480 show_expr (omp_clauses->num_threads); in show_omp_clauses()
1483 if (omp_clauses->async) in show_omp_clauses()
1486 if (omp_clauses->async_expr) in show_omp_clauses()
[all …]
H A Dtrans-openmp.cc2567 tree omp_clauses = NULL_TREE, prev_clauses, chunk_size, c; in gfc_trans_omp_clauses() local
2594 omp_clauses = gfc_trans_omp_reduction_list (list, n, omp_clauses, in gfc_trans_omp_clauses()
2642 omp_clauses in gfc_trans_omp_clauses()
2643 = gfc_trans_omp_variable_list (clause_code, n, omp_clauses, in gfc_trans_omp_clauses()
2672 omp_clauses = gfc_trans_add_clause (node, omp_clauses); in gfc_trans_omp_clauses()
2694 omp_clauses = gfc_trans_add_clause (node, omp_clauses); in gfc_trans_omp_clauses()
2795 omp_clauses = gfc_trans_add_clause (node, omp_clauses); in gfc_trans_omp_clauses()
2805 prev_clauses = omp_clauses; in gfc_trans_omp_clauses()
2812 for (tree c = omp_clauses; c != prev_clauses; in gfc_trans_omp_clauses()
2816 prev_clauses = omp_clauses; in gfc_trans_omp_clauses()
[all …]
H A Dopenmp.cc3104 new_st.ext.omp_clauses = c; in match_acc()
3282 new_st.ext.omp_clauses = c; in gfc_match_oacc_update()
3339 new_st.ext.omp_clauses = c; in gfc_match_oacc_wait()
3370 new_st.ext.omp_clauses = c; in gfc_match_oacc_cache()
3594 new_st.ext.omp_clauses = c; in gfc_match_oacc_routine()
3699 new_st.ext.omp_clauses = c; in match_omp()
3718 new_st.ext.omp_clauses = c; in gfc_match_omp_critical()
3815 new_st.ext.omp_clauses = c; in gfc_match_omp_depobj()
3921 gfc_omp_clauses *c = new_st.ext.omp_clauses; in gfc_match_omp_error()
3924 if (new_st.ext.omp_clauses->at == OMP_AT_EXECUTION) in gfc_match_omp_error()
[all …]
H A Dparse.cc1201 if (new_st.ext.omp_clauses->at != OMP_AT_EXECUTION) in decode_omp_directive()
5293 cp->ext.omp_clauses->nowait |= new_st.ext.omp_bool; in parse_omp_do()
5332 np->ext.omp_clauses = cp->ext.omp_clauses; in parse_omp_oacc_atomic()
5333 cp->ext.omp_clauses = NULL; in parse_omp_oacc_atomic()
5334 count = 1 + np->ext.omp_clauses->capture; in parse_omp_oacc_atomic()
5341 else if (np->ext.omp_clauses->compare in parse_omp_oacc_atomic()
5355 && (!np->ext.omp_clauses->compare in parse_omp_oacc_atomic()
5356 || np->ext.omp_clauses->capture)) in parse_omp_oacc_atomic()
5729 cp->ext.omp_clauses->nowait |= new_st.ext.omp_bool; in parse_omp_structured_block()
5732 if (((cp->ext.omp_clauses->critical_name == NULL) in parse_omp_structured_block()
[all …]
H A Dfrontend-passes.cc5632 if (co->ext.omp_clauses) in gfc_code_walker()
5639 WALK_SUBEXPR (co->ext.omp_clauses->if_expr); in gfc_code_walker()
5640 WALK_SUBEXPR (co->ext.omp_clauses->final_expr); in gfc_code_walker()
5641 WALK_SUBEXPR (co->ext.omp_clauses->num_threads); in gfc_code_walker()
5642 WALK_SUBEXPR (co->ext.omp_clauses->chunk_size); in gfc_code_walker()
5643 WALK_SUBEXPR (co->ext.omp_clauses->safelen_expr); in gfc_code_walker()
5644 WALK_SUBEXPR (co->ext.omp_clauses->simdlen_expr); in gfc_code_walker()
5645 WALK_SUBEXPR (co->ext.omp_clauses->num_teams_lower); in gfc_code_walker()
5646 WALK_SUBEXPR (co->ext.omp_clauses->num_teams_upper); in gfc_code_walker()
5647 WALK_SUBEXPR (co->ext.omp_clauses->device); in gfc_code_walker()
[all …]
H A Dtrans-common.cc436 tree omp_clauses = NULL_TREE; in build_common_decl() local
489 omp_clauses = c; in build_common_decl()
494 omp_clauses, DECL_ATTRIBUTES (decl)); in build_common_decl()
498 omp_clauses, DECL_ATTRIBUTES (decl)); in build_common_decl()
H A Dst.cc280 gfc_free_omp_clauses (p->ext.omp_clauses); in gfc_free_statement()
H A Dmatch.cc2876 if (o->previous->tail->ext.omp_clauses != NULL) in match_exit_cycle()
2880 if (o->previous->tail->ext.omp_clauses->tile_list) in match_exit_cycle()
2884 = o->previous->tail->ext.omp_clauses->tile_list; in match_exit_cycle()
2888 else if (o->previous->tail->ext.omp_clauses->collapse > 1) in match_exit_cycle()
2889 count = o->previous->tail->ext.omp_clauses->collapse; in match_exit_cycle()
2898 gfc_error (o->previous->tail->ext.omp_clauses->tile_list in match_exit_cycle()
2939 if (o->previous->tail->ext.omp_clauses != NULL) in match_exit_cycle()
2941 if (o->previous->tail->ext.omp_clauses->collapse > 1) in match_exit_cycle()
2942 count = o->previous->tail->ext.omp_clauses->collapse; in match_exit_cycle()
2943 if (o->previous->tail->ext.omp_clauses->orderedc) in match_exit_cycle()
[all …]
H A Dtrans-decl.cc6579 gfc_omp_clauses *omp_clauses = NULL; in finish_oacc_declare() local
6611 if (omp_clauses == NULL) in finish_oacc_declare()
6613 omp_clauses = oc->clauses; in finish_oacc_declare()
6622 p->next = omp_clauses->lists[OMP_LIST_MAP]; in finish_oacc_declare()
6623 omp_clauses = oc->clauses; in finish_oacc_declare()
6627 if (!omp_clauses) in finish_oacc_declare()
6630 for (n = omp_clauses->lists[OMP_LIST_MAP]; n; n = n->next) in finish_oacc_declare()
6648 code->ext.oacc_declare->clauses = omp_clauses; in finish_oacc_declare()
H A Dgfortran.h2984 gfc_omp_clauses *omp_clauses; member
H A DChangeLog-2016681 (gfc_match_omp_critical): Parse optional clauses and use omp_clauses
755 (gfc_trans_omp_teams): Add omp_clauses argument, add it to other
H A DChangeLog-20061981 code->exp.omp_clauses rather than in the 3rd function argument.
3824 (struct gfc_code): Add omp_clauses, omp_name, omp_namelist
H A DChangeLog-20141919 (resolve_omp_clauses): Add where, omp_clauses and ns arguments.
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-openmp.c2152 tree omp_clauses = NULL_TREE, chunk_size, c; variable
2171 omp_clauses = gfc_trans_omp_reduction_list (n, omp_clauses, where,
2207 omp_clauses
2208 = gfc_trans_omp_variable_list (clause_code, n, omp_clauses,
2237 omp_clauses = gfc_trans_add_clause (node, omp_clauses);
2338 omp_clauses = gfc_trans_add_clause (node, omp_clauses);
2394 omp_clauses = gfc_trans_add_clause (node, omp_clauses);
2452 omp_clauses = gfc_trans_add_clause (node, omp_clauses);
2887 omp_clauses = gfc_trans_add_clause (node, omp_clauses);
2889 omp_clauses = gfc_trans_add_clause (node2, omp_clauses);
[all …]
H A Ddump-parse-tree.c1367 show_omp_clauses (gfc_omp_clauses *omp_clauses) in show_omp_clauses() argument
1371 switch (omp_clauses->cancel) in show_omp_clauses()
1388 if (omp_clauses->if_expr) in show_omp_clauses()
1391 show_expr (omp_clauses->if_expr); in show_omp_clauses()
1394 if (omp_clauses->final_expr) in show_omp_clauses()
1397 show_expr (omp_clauses->final_expr); in show_omp_clauses()
1400 if (omp_clauses->num_threads) in show_omp_clauses()
1403 show_expr (omp_clauses->num_threads); in show_omp_clauses()
1406 if (omp_clauses->async) in show_omp_clauses()
1409 if (omp_clauses->async_expr) in show_omp_clauses()
[all …]
H A Dopenmp.c2068 new_st.ext.omp_clauses = c; in match_acc()
2246 new_st.ext.omp_clauses = c; in gfc_match_oacc_update()
2303 new_st.ext.omp_clauses = c; in gfc_match_oacc_wait()
2334 new_st.ext.omp_clauses = c; in gfc_match_oacc_cache()
2535 new_st.ext.omp_clauses = c; in gfc_match_oacc_routine()
2615 new_st.ext.omp_clauses = c; in match_omp()
2639 new_st.ext.omp_clauses = c; in gfc_match_omp_critical()
3583 new_st.ext.omp_clauses = NULL; in gfc_match_omp_taskwait()
3597 new_st.ext.omp_clauses = NULL; in gfc_match_omp_taskyield()
3656 new_st.ext.omp_clauses = gfc_get_omp_clauses (); in gfc_match_omp_workshare()
[all …]
H A Dfrontend-passes.c5341 if (co->ext.omp_clauses) in gfc_code_walker()
5348 WALK_SUBEXPR (co->ext.omp_clauses->if_expr); in gfc_code_walker()
5349 WALK_SUBEXPR (co->ext.omp_clauses->final_expr); in gfc_code_walker()
5350 WALK_SUBEXPR (co->ext.omp_clauses->num_threads); in gfc_code_walker()
5351 WALK_SUBEXPR (co->ext.omp_clauses->chunk_size); in gfc_code_walker()
5352 WALK_SUBEXPR (co->ext.omp_clauses->safelen_expr); in gfc_code_walker()
5353 WALK_SUBEXPR (co->ext.omp_clauses->simdlen_expr); in gfc_code_walker()
5354 WALK_SUBEXPR (co->ext.omp_clauses->num_teams); in gfc_code_walker()
5355 WALK_SUBEXPR (co->ext.omp_clauses->device); in gfc_code_walker()
5356 WALK_SUBEXPR (co->ext.omp_clauses->thread_limit); in gfc_code_walker()
[all …]
H A Dst.c258 gfc_free_omp_clauses (p->ext.omp_clauses); in gfc_free_statement()
H A Dmatch.c2899 if (o->previous->tail->ext.omp_clauses != NULL) in match_exit_cycle()
2903 if (o->previous->tail->ext.omp_clauses->tile_list) in match_exit_cycle()
2906 gfc_expr_list *el = o->previous->tail->ext.omp_clauses->tile_list; in match_exit_cycle()
2910 else if (o->previous->tail->ext.omp_clauses->collapse > 1) in match_exit_cycle()
2911 collapse = o->previous->tail->ext.omp_clauses->collapse; in match_exit_cycle()
2920 gfc_error (o->previous->tail->ext.omp_clauses->tile_list in match_exit_cycle()
2943 if (o->previous->tail->ext.omp_clauses != NULL) in match_exit_cycle()
2945 if (o->previous->tail->ext.omp_clauses->collapse > 1) in match_exit_cycle()
2946 count = o->previous->tail->ext.omp_clauses->collapse; in match_exit_cycle()
2947 if (o->previous->tail->ext.omp_clauses->orderedc) in match_exit_cycle()
[all …]
H A Dparse.c5010 cp->ext.omp_clauses->nowait |= new_st.ext.omp_bool; in parse_omp_do()
5407 cp->ext.omp_clauses->nowait |= new_st.ext.omp_bool; in parse_omp_structured_block()
5410 if (((cp->ext.omp_clauses == NULL) ^ (new_st.ext.omp_name == NULL)) in parse_omp_structured_block()
5412 && strcmp (cp->ext.omp_clauses->critical_name, in parse_omp_structured_block()
5420 cp->ext.omp_clauses->lists[OMP_LIST_COPYPRIVATE] in parse_omp_structured_block()
5421 = new_st.ext.omp_clauses->lists[OMP_LIST_COPYPRIVATE]; in parse_omp_structured_block()
5422 new_st.ext.omp_clauses->lists[OMP_LIST_COPYPRIVATE] = NULL; in parse_omp_structured_block()
5423 gfc_free_omp_clauses (new_st.ext.omp_clauses); in parse_omp_structured_block()
H A Dtrans-decl.c6646 gfc_omp_clauses *omp_clauses = NULL; in finish_oacc_declare() local
6678 if (omp_clauses == NULL) in finish_oacc_declare()
6680 omp_clauses = oc->clauses; in finish_oacc_declare()
6689 p->next = omp_clauses->lists[OMP_LIST_MAP]; in finish_oacc_declare()
6690 omp_clauses = oc->clauses; in finish_oacc_declare()
6694 if (!omp_clauses) in finish_oacc_declare()
6697 for (n = omp_clauses->lists[OMP_LIST_MAP]; n; n = n->next) in finish_oacc_declare()
6715 code->ext.oacc_declare->clauses = omp_clauses; in finish_oacc_declare()
H A Dgfortran.h2698 gfc_omp_clauses *omp_clauses; member