| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | module.cc | 4616 intmod = sym->from_intmod; in mio_symbol() 4623 sym->from_intmod = current_intmod; in mio_symbol() 4625 sym->from_intmod = (intmod_id) intmod; in mio_symbol() 6631 sym->from_intmod = module; in create_intrinsic_function() 6670 mod_sym->from_intmod = INTMOD_ISO_C_BINDING; in import_iso_c_binding_module() 6933 sym->from_intmod = module; in create_int_parameter() 6965 sym->from_intmod = module; in create_int_parameter_array() 7002 sym->from_intmod = module; in create_derived_type() 7017 dt_sym->from_intmod = module; in create_derived_type() 7097 mod_sym->from_intmod = INTMOD_ISO_FORTRAN_ENV; in use_iso_fortran_env_module()
|
| H A D | expr.cc | 2760 if (sym->from_intmod) in check_inquiry() 2762 if (sym->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_inquiry() 2767 if (sym->from_intmod == INTMOD_ISO_C_BINDING in check_inquiry() 2983 int mod = sym->from_intmod; in gfc_check_init_expr() 2985 mod = sym->generic->sym->from_intmod; in gfc_check_init_expr() 3285 if (f->from_intmod == INTMOD_IEEE_ARITHMETIC in external_spec_function() 3286 || f->from_intmod == INTMOD_IEEE_EXCEPTIONS) in external_spec_function() 6298 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_check_vardef_context() 6311 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_check_vardef_context()
|
| H A D | check.cc | 1764 || event->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in gfc_check_event_query() 5333 || c_ptr_1->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_associated() 5347 || c_ptr_2->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_associated() 5372 || cptr->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_f_pointer() 5461 || cptr->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_f_procpointer() 6035 || team->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in gfc_check_team_number()
|
| H A D | symbol.cc | 4405 if (dt_list->from_intmod != INTMOD_NONE in get_iso_c_binding_dt() 4817 || tmp_symtree->n.sym->from_intmod != INTMOD_ISO_C_BINDING in generate_isocbinding_symbol() 4825 && tmp_sym->from_intmod == INTMOD_ISO_C_BINDING) in generate_isocbinding_symbol() 4869 tmp_sym->from_intmod = INTMOD_ISO_C_BINDING; in generate_isocbinding_symbol() 4985 dt_sym->from_intmod = INTMOD_ISO_C_BINDING; in generate_isocbinding_symbol()
|
| H A D | trans-decl.cc | 1752 && (sym->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_get_symbol_decl() 1753 || sym->from_intmod == INTMOD_ISO_C_BINDING)) in gfc_get_symbol_decl() 5550 && sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in generate_coarray_sym_init() 5554 && sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in generate_coarray_sym_init() 5990 && sym->from_intmod != INTMOD_ISO_C_BINDING in generate_local_decl() 5991 && sym->from_intmod != INTMOD_ISO_FORTRAN_ENV) in generate_local_decl() 6504 if (sym->from_intmod == INTMOD_IEEE_FEATURES in is_from_ieee_module() 6505 || sym->from_intmod == INTMOD_IEEE_EXCEPTIONS in is_from_ieee_module() 6506 || sym->from_intmod == INTMOD_IEEE_ARITHMETIC) in is_from_ieee_module()
|
| H A D | target-memory.cc | 505 if (result->ts.u.derived->from_intmod == INTMOD_ISO_C_BINDING in gfc_interpret_derived()
|
| H A D | trans.cc | 943 && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_allocate_allocatable() 950 && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_allocate_allocatable()
|
| H A D | parse.cc | 3276 && c->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_component() 3279 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component() 3293 && c->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_component() 3296 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
|
| H A D | interface.cc | 2612 && formal->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in compare_parameter() 2627 && formal->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in compare_parameter() 4149 && ((a->expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_procedure_use() 4163 && ((a->expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_procedure_use()
|
| H A D | intrinsic.cc | 1010 gfc_isym_id_by_intmod (intmod_id from_intmod, int intmod_sym_id) in gfc_isym_id_by_intmod() argument 1012 if (from_intmod == INTMOD_NONE) in gfc_isym_id_by_intmod() 1014 else if (from_intmod == INTMOD_ISO_C_BINDING) in gfc_isym_id_by_intmod() 1016 else if (from_intmod == INTMOD_ISO_FORTRAN_ENV) in gfc_isym_id_by_intmod() 1038 return gfc_isym_id_by_intmod (sym->from_intmod, sym->intmod_sym_id); in gfc_isym_id_by_intmod_sym()
|
| H A D | dump-parse-tree.cc | 3673 if (ts->u.derived->from_intmod == INTMOD_ISO_C_BINDING) in get_c_type_name() 3879 if (sym->from_intmod == INTMOD_ISO_C_BINDING) in write_interop_decl()
|
| H A D | resolve.cc | 1840 if (sym->from_intmod && sym->ts.type != BT_UNKNOWN) in gfc_resolve_intrinsic() 7976 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr() 7991 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr() 8059 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_allocate_expr() 10210 || code->expr1->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in resolve_lock_unlock_event() 10220 || code->expr1->ts.u.derived->from_intmod in resolve_lock_unlock_event() 10305 lock_type->from_intmod = INTMOD_ISO_FORTRAN_ENV; in resolve_critical() 16005 && ((sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_symbol() 16018 && ((sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_symbol()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | module.c | 4465 intmod = sym->from_intmod; in mio_symbol() 4472 sym->from_intmod = current_intmod; in mio_symbol() 4474 sym->from_intmod = (intmod_id) intmod; in mio_symbol() 6420 sym->from_intmod = module; in create_intrinsic_function() 6459 mod_sym->from_intmod = INTMOD_ISO_C_BINDING; in import_iso_c_binding_module() 6722 sym->from_intmod = module; in create_int_parameter() 6754 sym->from_intmod = module; in create_int_parameter_array() 6791 sym->from_intmod = module; in create_derived_type() 6806 dt_sym->from_intmod = module; in create_derived_type() 6886 mod_sym->from_intmod = INTMOD_ISO_FORTRAN_ENV; in use_iso_fortran_env_module()
|
| H A D | expr.c | 2734 if (sym->from_intmod) in check_inquiry() 2736 if (sym->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_inquiry() 2741 if (sym->from_intmod == INTMOD_ISO_C_BINDING in check_inquiry() 2957 int mod = sym->from_intmod; in gfc_check_init_expr() 2959 mod = sym->generic->sym->from_intmod; in gfc_check_init_expr() 3253 if (f->from_intmod == INTMOD_IEEE_ARITHMETIC in external_spec_function() 3254 || f->from_intmod == INTMOD_IEEE_EXCEPTIONS) in external_spec_function() 6242 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_check_vardef_context() 6255 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_check_vardef_context()
|
| H A D | trans-decl.c | 1713 && (sym->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_get_symbol_decl() 1714 || sym->from_intmod == INTMOD_ISO_C_BINDING)) in gfc_get_symbol_decl() 5622 && sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in generate_coarray_sym_init() 5626 && sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in generate_coarray_sym_init() 6062 && sym->from_intmod != INTMOD_ISO_C_BINDING in generate_local_decl() 6063 && sym->from_intmod != INTMOD_ISO_FORTRAN_ENV) in generate_local_decl() 6571 if (sym->from_intmod == INTMOD_IEEE_FEATURES in is_from_ieee_module() 6572 || sym->from_intmod == INTMOD_IEEE_EXCEPTIONS in is_from_ieee_module() 6573 || sym->from_intmod == INTMOD_IEEE_ARITHMETIC) in is_from_ieee_module()
|
| H A D | check.c | 1760 || event->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in gfc_check_event_query() 5314 || c_ptr_1->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_associated() 5328 || c_ptr_2->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_associated() 5353 || cptr->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_f_pointer() 5442 || cptr->ts.u.derived->from_intmod != INTMOD_ISO_C_BINDING in gfc_check_c_f_procpointer() 6009 || team->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in gfc_check_team_number()
|
| H A D | symbol.c | 4385 if (dt_list->from_intmod != INTMOD_NONE in get_iso_c_binding_dt() 4773 || tmp_symtree->n.sym->from_intmod != INTMOD_ISO_C_BINDING in generate_isocbinding_symbol() 4781 && tmp_sym->from_intmod == INTMOD_ISO_C_BINDING) in generate_isocbinding_symbol() 4825 tmp_sym->from_intmod = INTMOD_ISO_C_BINDING; in generate_isocbinding_symbol() 4941 dt_sym->from_intmod = INTMOD_ISO_C_BINDING; in generate_isocbinding_symbol()
|
| H A D | target-memory.c | 505 if (result->ts.u.derived->from_intmod == INTMOD_ISO_C_BINDING in gfc_interpret_derived()
|
| H A D | parse.c | 3026 && c->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_component() 3029 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component() 3043 && c->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in check_component() 3046 && CLASS_DATA (c)->ts.u.derived->from_intmod in check_component()
|
| H A D | trans.c | 870 && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_allocate_allocatable() 877 && expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_allocate_allocatable()
|
| H A D | interface.c | 2547 && formal->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in compare_parameter() 2562 && formal->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in compare_parameter() 3946 && ((a->expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_procedure_use() 3960 && ((a->expr->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_procedure_use()
|
| H A D | intrinsic.c | 984 gfc_isym_id_by_intmod (intmod_id from_intmod, int intmod_sym_id) in gfc_isym_id_by_intmod() argument 986 if (from_intmod == INTMOD_NONE) in gfc_isym_id_by_intmod() 988 else if (from_intmod == INTMOD_ISO_C_BINDING) in gfc_isym_id_by_intmod() 990 else if (from_intmod == INTMOD_ISO_FORTRAN_ENV) in gfc_isym_id_by_intmod() 1012 return gfc_isym_id_by_intmod (sym->from_intmod, sym->intmod_sym_id); in gfc_isym_id_by_intmod_sym()
|
| H A D | dump-parse-tree.c | 3334 if (ts->u.derived->from_intmod == INTMOD_ISO_C_BINDING) in get_c_type_name() 3540 if (sym->from_intmod == INTMOD_ISO_C_BINDING) in write_interop_decl()
|
| H A D | trans-types.c | 2523 && derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_get_derived_type() 2530 && derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in gfc_get_derived_type()
|
| H A D | resolve.c | 1799 if (sym->from_intmod && sym->ts.type != BT_UNKNOWN) in gfc_resolve_intrinsic() 7853 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr() 7868 || (code->expr3->ts.u.derived->from_intmod in resolve_allocate_expr() 7936 && e->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_allocate_expr() 10071 || code->expr1->ts.u.derived->from_intmod != INTMOD_ISO_FORTRAN_ENV in resolve_lock_unlock_event() 10081 || code->expr1->ts.u.derived->from_intmod in resolve_lock_unlock_event() 10166 lock_type->from_intmod = INTMOD_ISO_FORTRAN_ENV; in resolve_critical() 15781 && ((sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_symbol() 15794 && ((sym->ts.u.derived->from_intmod == INTMOD_ISO_FORTRAN_ENV in resolve_symbol()
|