Searched refs:formal_ns (Results 1 – 17 of 17) sorted by relevance
4580 mio_namespace_ref (&sym->formal_ns); in mio_symbol()4583 mio_namespace_ref (&sym->formal_ns); in mio_symbol()4584 if (sym->formal_ns) in mio_symbol()4585 sym->formal_ns->proc_name = sym; in mio_symbol()4633 if (sym->formal_ns in mio_symbol()4634 && sym->formal_ns->proc_name == sym in mio_symbol()4635 && sym->formal_ns->entries == NULL) in mio_symbol()4636 mio_omp_declare_simd (sym->formal_ns, &sym->formal_ns->omp_declare_simd); in mio_symbol()
3090 if (sym->ns != sym->formal_ns) in gfc_free_symbol()3091 gfc_free_namespace (sym->formal_ns); in gfc_free_symbol()3118 if (sym->formal_ns != NULL && sym->refs == 2 && sym->formal_ns != sym->ns in gfc_release_symbol()3123 gfc_namespace *ns = sym->formal_ns; in gfc_release_symbol()3124 sym->formal_ns = NULL; in gfc_release_symbol()4757 dest->formal_ns = gfc_current_ns; in gfc_copy_formal_args_intr()
870 * symbol.c (gfc_copy_formal_args): Set also sym->formal_ns.898 * resolve.c (resolve_symbol): Only increment formal_ns->refs899 if formal_ns is not sym->ns.900 * symbol.c (gfc_free_symbol): Only free formal_ns if901 if formal_ns is not sym->ns. Free common_block if refs is one.902 (gfc_release_symbol): Release formal_ns only if the908 use in sym->formal_ns->proc_name.
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()3861 gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns); in parse_interface()3865 prog_unit->formal_ns); in parse_interface()
1171 if (sym->formal_ns && (sym->formal_ns->proc_name != sym) in show_symbol()1177 show_namespace (sym->formal_ns); in show_symbol()
1778 * gfortran.h (gfc_component): Delete members 'formal' and 'formal_ns'.1793 (mio_component): Do not read/write 'formal' and 'formal_ns'.1801 * symbol.c (free_components): Do not free 'formal' and 'formal_ns'.
13619 if (sym->formal && sym->formal_ns) in resolve_fl_procedure()13624 gfc_traverse_ns (sym->formal_ns, compare_fsyms); in resolve_fl_procedure()14670 if (ifc->formal && !ifc->formal_ns) in resolve_component()16189 if (sym->formal && !sym->formal_ns) in resolve_symbol()16241 if (sym->formal_ns && sym->formal_ns != gfc_current_ns in resolve_symbol()16243 gfc_resolve (sym->formal_ns); in resolve_symbol()16246 if (sym->formal && !sym->formal_ns) in resolve_symbol()16254 sym->formal_ns = formal->sym->ns; in resolve_symbol()16255 if (sym->formal_ns && sym->ns != formal->sym->ns) in resolve_symbol()16256 sym->formal_ns->refs++; in resolve_symbol()
2349 if (sym->formal_ns in gfc_get_extern_function_decl()2350 && sym->formal_ns->proc_name == sym) in gfc_get_extern_function_decl()2352 if (sym->formal_ns->omp_declare_simd) in gfc_get_extern_function_decl()2353 gfc_trans_omp_declare_simd (sym->formal_ns); in gfc_get_extern_function_decl()2355 gfc_trans_omp_declare_variant (sym->formal_ns); in gfc_get_extern_function_decl()
1814 struct gfc_namespace *formal_ns; member
1282 * resolve.c (resolve_symbol): Don't resolve formal_ns of intrinsic2015 * gfortran.h (gfc_component): New member 'formal_ns'.
4429 mio_namespace_ref (&sym->formal_ns); in mio_symbol()4432 mio_namespace_ref (&sym->formal_ns); in mio_symbol()4433 if (sym->formal_ns) in mio_symbol()4434 sym->formal_ns->proc_name = sym; in mio_symbol()4482 if (sym->formal_ns in mio_symbol()4483 && sym->formal_ns->proc_name == sym in mio_symbol()4484 && sym->formal_ns->entries == NULL) in mio_symbol()4485 mio_omp_declare_simd (sym->formal_ns, &sym->formal_ns->omp_declare_simd); in mio_symbol()
3083 if (sym->ns != sym->formal_ns) in gfc_free_symbol()3084 gfc_free_namespace (sym->formal_ns); in gfc_free_symbol()3110 if (sym->formal_ns != NULL && sym->refs == 2 && sym->formal_ns != sym->ns in gfc_release_symbol()3115 gfc_namespace *ns = sym->formal_ns; in gfc_release_symbol()3116 sym->formal_ns = NULL; in gfc_release_symbol()4713 dest->formal_ns = gfc_current_ns; in gfc_copy_formal_args_intr()
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()3611 gfc_set_default_type (prog_unit, 1, prog_unit->formal_ns); in parse_interface()3615 prog_unit->formal_ns); in parse_interface()
1144 if (sym->formal_ns && (sym->formal_ns->proc_name != sym) in show_symbol()1150 show_namespace (sym->formal_ns); in show_symbol()
13407 if (sym->formal && sym->formal_ns) in resolve_fl_procedure()13412 gfc_traverse_ns (sym->formal_ns, compare_fsyms); in resolve_fl_procedure()14457 if (ifc->formal && !ifc->formal_ns) in resolve_component()15965 if (sym->formal && !sym->formal_ns) in resolve_symbol()16017 if (sym->formal_ns && sym->formal_ns != gfc_current_ns in resolve_symbol()16019 gfc_resolve (sym->formal_ns); in resolve_symbol()16022 if (sym->formal && !sym->formal_ns) in resolve_symbol()16030 sym->formal_ns = formal->sym->ns; in resolve_symbol()16031 if (sym->formal_ns && sym->ns != formal->sym->ns) in resolve_symbol()16032 sym->formal_ns->refs++; in resolve_symbol()
2329 if (sym->formal_ns in gfc_get_extern_function_decl()2330 && sym->formal_ns->proc_name == sym in gfc_get_extern_function_decl()2331 && sym->formal_ns->omp_declare_simd) in gfc_get_extern_function_decl()2332 gfc_trans_omp_declare_simd (sym->formal_ns); in gfc_get_extern_function_decl()
1563 struct gfc_namespace *formal_ns; member