HomeSort by: relevance | last modified time | path
    Searched refs:formal_ns (Results 1 - 12 of 12) sorted by relevancy

  /src/external/gpl3/gcc/dist/gcc/fortran/
symbol.cc 3157 if (sym->ns != sym->formal_ns)
3158 gfc_free_namespace (sym->formal_ns);
3177 /* Returns true if the symbol SYM has, through its FORMAL_NS field, a reference
3193 if (sym->formal_ns == nullptr)
3199 if (sym->formal_ns == sym->ns)
3209 from the FORMAL_NS namespace generated by host-association. So there are
3211 FORMAL_NS comes from host-association, which only imports symbols visible
3213 self reference through FORMAL_NS in that case. */
3239 /* As formal_ns contains a reference to sym, delete formal_ns jus
    [all...]
module.cc 4599 mio_namespace_ref (&sym->formal_ns);
4602 mio_namespace_ref (&sym->formal_ns);
4603 if (sym->formal_ns)
4604 sym->formal_ns->proc_name = sym;
4652 if (sym->formal_ns
4653 && sym->formal_ns->proc_name == sym
4654 && sym->formal_ns->entries == NULL)
4655 mio_omp_declare_simd (sym->formal_ns, &sym->formal_ns->omp_declare_simd);
resolve.cc 14392 if (sym->formal && sym->formal_ns)
14397 gfc_traverse_ns (sym->formal_ns, compare_fsyms);
15516 if (ifc->formal && !ifc->formal_ns)
17071 if (sym->formal && !sym->formal_ns)
17112 if (sym->formal_ns && sym->formal_ns != gfc_current_ns
17114 gfc_resolve (sym->formal_ns);
17117 if (sym->formal && !sym->formal_ns)
17125 sym->formal_ns = formal->sym->ns;
17126 if (sym->formal_ns && sym->ns != formal->sym->ns
    [all...]
parse.cc 4076 prog_unit->formal_ns = gfc_current_ns;
4090 gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns);
4094 prog_unit->formal_ns);
trans-decl.cc 2431 if (sym->formal_ns
2432 && sym->formal_ns->proc_name == sym)
2434 if (sym->formal_ns->omp_declare_simd)
2435 gfc_trans_omp_declare_simd (sym->formal_ns);
2437 gfc_trans_omp_declare_variant (sym->formal_ns);
gfortran.h 1861 struct gfc_namespace *formal_ns; member in struct:gfc_symbol
  /src/external/gpl3/gcc.old/dist/gcc/fortran/
symbol.cc 3090 if (sym->ns != sym->formal_ns)
3091 gfc_free_namespace (sym->formal_ns);
3118 if (sym->formal_ns != NULL && sym->refs == 2 && sym->formal_ns != sym->ns
3121 /* As formal_ns contains a reference to sym, delete formal_ns just
3123 gfc_namespace *ns = sym->formal_ns;
3124 sym->formal_ns = NULL;
4757 dest->formal_ns = gfc_current_ns;
module.cc 4580 mio_namespace_ref (&sym->formal_ns);
4583 mio_namespace_ref (&sym->formal_ns);
4584 if (sym->formal_ns)
4585 sym->formal_ns->proc_name = sym;
4633 if (sym->formal_ns
4634 && sym->formal_ns->proc_name == sym
4635 && sym->formal_ns->entries == NULL)
4636 mio_omp_declare_simd (sym->formal_ns, &sym->formal_ns->omp_declare_simd);
parse.cc 3844 prog_unit->formal_ns = gfc_current_ns;
3845 if (prog_unit == prog_unit->formal_ns->proc_name
3846 && prog_unit->ns != prog_unit->formal_ns)
3861 gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns);
3865 prog_unit->formal_ns);
resolve.cc 13630 if (sym->formal && sym->formal_ns)
13635 gfc_traverse_ns (sym->formal_ns, compare_fsyms);
14681 if (ifc->formal && !ifc->formal_ns)
16200 if (sym->formal && !sym->formal_ns)
16252 if (sym->formal_ns && sym->formal_ns != gfc_current_ns
16254 gfc_resolve (sym->formal_ns);
16257 if (sym->formal && !sym->formal_ns)
16265 sym->formal_ns = formal->sym->ns;
16266 if (sym->formal_ns && sym->ns != formal->sym->ns
    [all...]
trans-decl.cc 2349 if (sym->formal_ns
2350 && sym->formal_ns->proc_name == sym)
2352 if (sym->formal_ns->omp_declare_simd)
2353 gfc_trans_omp_declare_simd (sym->formal_ns);
2355 gfc_trans_omp_declare_variant (sym->formal_ns);
gfortran.h 1814 struct gfc_namespace *formal_ns; member in struct:gfc_symbol

Completed in 156 milliseconds