Searched refs:prog_unit (Results 1 – 3 of 3) sorted by relevance
1189 gfc_namespace *prog_unit = gfc_current_ns; in decode_omp_directive() local1190 while (prog_unit->parent) in decode_omp_directive()1195 prog_unit = prog_unit->parent; in decode_omp_directive()1197 prog_unit->omp_target_seen = true; in decode_omp_directive()3749 gfc_symbol *prog_unit, *sym; in parse_interface() local3843 prog_unit = gfc_new_block; in parse_interface()3844 prog_unit->formal_ns = gfc_current_ns; in parse_interface()3845 if (prog_unit == prog_unit->formal_ns->proc_name in parse_interface()3846 && prog_unit->ns != prog_unit->formal_ns) in parse_interface()3847 prog_unit->refs++; in parse_interface()[all …]
5250 gfc_namespace *prog_unit = gfc_current_ns; in gfc_omp_requires_add_clause() local5251 while (prog_unit->parent) in gfc_omp_requires_add_clause()5256 prog_unit = prog_unit->parent; in gfc_omp_requires_add_clause()5260 if (prog_unit->omp_target_seen in gfc_omp_requires_add_clause()5262 && !(prog_unit->omp_requires & clause)) in gfc_omp_requires_add_clause()5276 && (prog_unit->omp_requires & OMP_REQ_ATOMIC_MEM_ORDER_MASK) in gfc_omp_requires_add_clause()5277 && (prog_unit->omp_requires & OMP_REQ_ATOMIC_MEM_ORDER_MASK) in gfc_omp_requires_add_clause()5281 if (prog_unit->omp_requires & OMP_REQ_ATOMIC_MEM_ORDER_SEQ_CST) in gfc_omp_requires_add_clause()5283 else if (prog_unit->omp_requires & OMP_REQ_ATOMIC_MEM_ORDER_ACQ_REL) in gfc_omp_requires_add_clause()5285 else if (prog_unit->omp_requires & OMP_REQ_ATOMIC_MEM_ORDER_RELAXED) in gfc_omp_requires_add_clause()[all …]
3499 gfc_symbol *prog_unit, *sym; in parse_interface() local3593 prog_unit = gfc_new_block; in parse_interface()3594 prog_unit->formal_ns = gfc_current_ns; in parse_interface()3595 if (prog_unit == prog_unit->formal_ns->proc_name in parse_interface()3596 && prog_unit->ns != prog_unit->formal_ns) in parse_interface()3597 prog_unit->refs++; in parse_interface()3609 if (prog_unit->result == prog_unit in parse_interface()3610 && prog_unit->ts.type == BT_UNKNOWN) in parse_interface()3611 gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns); in parse_interface()3612 else if (prog_unit->result != prog_unit in parse_interface()[all …]