| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | interface.c | 2410 if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) in compare_parameter() 2452 && actual->expr_type != EXPR_NULL in compare_parameter() 2619 && actual->expr_type != EXPR_NULL; in compare_parameter() 2627 || (formal->attr.pointer && actual->expr_type != EXPR_NULL) in compare_parameter() 2634 && actual->expr_type != EXPR_NULL) in compare_parameter() 2678 if (actual->ts.type == BT_CLASS && actual->expr_type != EXPR_NULL) in compare_parameter() 2686 if (actual->expr_type != EXPR_NULL && ref && actual->ts.type != BT_CHARACTER in compare_parameter() 2704 if (actual->ts.type == BT_CHARACTER && actual->expr_type != EXPR_NULL in compare_parameter() 2727 if (ref == NULL && actual->expr_type != EXPR_NULL) in compare_parameter() 3168 if (a->expr->expr_type == EXPR_NULL in gfc_compare_actual_formal() [all …]
|
| H A D | expr.c | 89 e->expr_type = EXPR_NULL; in gfc_get_null_expr() 398 case EXPR_NULL: in gfc_copy_expr() 505 case EXPR_NULL: in free_expr0() 1076 case EXPR_NULL: in gfc_is_constant_expr() 2204 case EXPR_NULL: in gfc_simplify_expr() 2658 && ctor->expr->expr_type != EXPR_NULL) in check_alloc_comp_init() 3093 case EXPR_NULL: in gfc_check_init_expr() 3494 case EXPR_NULL: in check_restricted() 3745 if (rvalue->expr_type == EXPR_NULL) in gfc_check_assign() 4001 if (rvalue->expr_type == EXPR_NULL && rvalue->ts.type == BT_UNKNOWN) in gfc_check_pointer_assign() [all …]
|
| H A D | trans-expr.c | 4732 case EXPR_NULL: in gfc_apply_interface_mapping_to_expr() 5757 else if (arg->expr->expr_type == EXPR_NULL in gfc_conv_procedure_call() 6245 && fsym->ts.type != BT_CLASS && e->expr_type != EXPR_NULL) in gfc_conv_procedure_call() 6255 else if (fsym && e->expr_type != EXPR_NULL in gfc_conv_procedure_call() 7894 else if (!expr || expr->expr_type == EXPR_NULL) in gfc_conv_initializer() 7912 if (ts->type == BT_CLASS && expr->expr_type == EXPR_NULL) in gfc_conv_initializer() 8328 if (expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() 8355 else if (cm->ts.type == BT_CLASS && expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() 8366 if (cm->attr.allocatable && expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() 8393 else if (init && cm->attr.allocatable && expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() [all …]
|
| H A D | class.c | 450 if (init_expr && init_expr->expr_type != EXPR_NULL) in gfc_class_initializer() 464 else if (init_expr && init_expr->expr_type != EXPR_NULL) in gfc_class_initializer() 1633 if ((!ancestor_wrapper || ancestor_wrapper->expr_type == EXPR_NULL) in generate_finalization_wrapper() 1643 && ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2215 && ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2227 if (ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2683 && final->initializer->expr_type != EXPR_NULL); in gfc_is_finalizable()
|
| H A D | check.c | 1424 if (x->expr_type == EXPR_NULL) in gfc_invalid_null_arg() 4570 || a->expr_type == EXPR_NULL in gfc_check_rank() 5171 if (expr->expr_type == EXPR_NULL) in is_c_interoperable() 7202 if (array->expr_type == EXPR_NULL) in gfc_check_is_contiguous() 7462 if (a->expr_type == EXPR_NULL) in gfc_check_storage_size()
|
| H A D | target-memory.c | 275 if (c->expr->expr_type == EXPR_NULL) in encode_derived()
|
| H A D | dependency.c | 1387 case EXPR_NULL: in gfc_check_dependency() 1815 case EXPR_NULL: in contains_forall_index_p()
|
| H A D | resolve.c | 1293 if (cons->expr->ts.type == BT_UNION && cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons() 1308 if (cons->expr->expr_type != EXPR_NULL && rank != cons->expr->rank in resolve_structure_cons() 1390 if (cons->expr->expr_type == EXPR_NULL in resolve_structure_cons() 1423 else if (cons->expr->expr_type != EXPR_NULL) in resolve_structure_cons() 1477 || cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons() 4050 if ((op1 && op1->expr_type == EXPR_NULL) in resolve_operator() 4051 || (op2 && op2->expr_type == EXPR_NULL)) in resolve_operator() 7117 case EXPR_NULL: in gfc_resolve_expr() 8995 if (target->expr_type == EXPR_NULL) in resolve_assoc_var() 9893 if (exp && exp->expr_type == EXPR_NULL in resolve_transfer() [all …]
|
| H A D | trans-decl.c | 1847 && sym->value && sym->value->expr_type != EXPR_NULL in gfc_get_symbol_decl() 1858 gcc_assert (!sym->value || sym->value->expr_type == EXPR_NULL); in gfc_get_symbol_decl() 5479 if (expr->expr_type == EXPR_CONSTANT || expr->expr_type == EXPR_NULL) in check_constant_initializer()
|
| H A D | gfortran.h | 146 EXPR_SUBSTRING, EXPR_STRUCTURE, EXPR_ARRAY, EXPR_NULL, EXPR_COMPCALL, EXPR_PPC enumerator
|
| H A D | module.c | 3441 minit ("NULL", EXPR_NULL), 3781 case EXPR_NULL: in mio_expr()
|
| H A D | gfc-internals.texi | 524 @code{gfc_expr} node with @code{expr_type} @code{EXPR_NULL}. If the base type
|
| H A D | dump-parse-tree.c | 512 case EXPR_NULL: in show_expr()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | interface.cc | 2460 if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) in compare_parameter() 2517 && actual->expr_type != EXPR_NULL in compare_parameter() 2684 && actual->expr_type != EXPR_NULL; in compare_parameter() 2692 || (formal->attr.pointer && actual->expr_type != EXPR_NULL) in compare_parameter() 2699 && actual->expr_type != EXPR_NULL) in compare_parameter() 2745 if (actual->ts.type == BT_CLASS && actual->expr_type != EXPR_NULL) in compare_parameter() 2753 if (actual->expr_type != EXPR_NULL && ref && actual->ts.type != BT_CHARACTER in compare_parameter() 2771 if (actual->ts.type == BT_CHARACTER && actual->expr_type != EXPR_NULL in compare_parameter() 2794 if (ref == NULL && actual->expr_type != EXPR_NULL) in compare_parameter() 3252 if (a->expr->expr_type == EXPR_NULL in gfc_compare_actual_formal() [all …]
|
| H A D | expr.cc | 89 e->expr_type = EXPR_NULL; in gfc_get_null_expr() 399 case EXPR_NULL: in gfc_copy_expr() 506 case EXPR_NULL: in free_expr0() 1084 case EXPR_NULL: in gfc_is_constant_expr() 2229 case EXPR_NULL: in gfc_simplify_expr() 2684 && ctor->expr->expr_type != EXPR_NULL) in check_alloc_comp_init() 3125 case EXPR_NULL: in gfc_check_init_expr() 3526 case EXPR_NULL: in check_restricted() 3777 if (rvalue->expr_type == EXPR_NULL) in gfc_check_assign() 4033 if (rvalue->expr_type == EXPR_NULL && rvalue->ts.type == BT_UNKNOWN) in gfc_check_pointer_assign() [all …]
|
| H A D | trans-expr.cc | 4821 case EXPR_NULL: in gfc_apply_interface_mapping_to_expr() 5623 if (e->expr_type == EXPR_NULL && e->ts.type == BT_UNKNOWN) in gfc_conv_gfc_desc_to_cfi_desc() 5719 && (e->expr_type != EXPR_NULL || gfc_strlen != NULL_TREE)) in gfc_conv_gfc_desc_to_cfi_desc() 6188 else if (arg->expr->expr_type == EXPR_NULL in gfc_conv_procedure_call() 6678 && fsym->ts.type != BT_CLASS && e->expr_type != EXPR_NULL) in gfc_conv_procedure_call() 6688 else if (fsym && e->expr_type != EXPR_NULL in gfc_conv_procedure_call() 8437 else if (!expr || expr->expr_type == EXPR_NULL) in gfc_conv_initializer() 8455 if (ts->type == BT_CLASS && expr->expr_type == EXPR_NULL) in gfc_conv_initializer() 8871 if (expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() 8898 else if (cm->ts.type == BT_CLASS && expr->expr_type == EXPR_NULL) in gfc_trans_subcomponent_assign() [all …]
|
| H A D | class.cc | 452 if (init_expr && init_expr->expr_type != EXPR_NULL) in gfc_class_initializer() 466 else if (init_expr && init_expr->expr_type != EXPR_NULL) in gfc_class_initializer() 1647 if ((!ancestor_wrapper || ancestor_wrapper->expr_type == EXPR_NULL) in generate_finalization_wrapper() 1661 && ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2223 && ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2235 if (ancestor_wrapper && ancestor_wrapper->expr_type != EXPR_NULL) in generate_finalization_wrapper() 2695 && final->initializer->expr_type != EXPR_NULL); in gfc_is_finalizable()
|
| H A D | check.cc | 1426 if (x->expr_type == EXPR_NULL) in gfc_invalid_null_arg() 4589 || a->expr_type == EXPR_NULL in gfc_check_rank() 5190 if (expr->expr_type == EXPR_NULL) in is_c_interoperable() 7228 if (array->expr_type == EXPR_NULL) in gfc_check_is_contiguous() 7488 if (a->expr_type == EXPR_NULL) in gfc_check_storage_size()
|
| H A D | target-memory.cc | 274 if (c->expr->expr_type == EXPR_NULL) in encode_derived()
|
| H A D | dependency.cc | 1388 case EXPR_NULL: in gfc_check_dependency() 1816 case EXPR_NULL: in contains_forall_index_p()
|
| H A D | resolve.cc | 1321 if (cons->expr->ts.type == BT_UNION && cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons() 1336 if (cons->expr->expr_type != EXPR_NULL && rank != cons->expr->rank in resolve_structure_cons() 1429 if (cons->expr->expr_type == EXPR_NULL in resolve_structure_cons() 1462 else if (cons->expr->expr_type != EXPR_NULL) in resolve_structure_cons() 1516 || cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons() 4136 if ((op1 && op1->expr_type == EXPR_NULL) in resolve_operator() 4137 || (op2 && op2->expr_type == EXPR_NULL)) in resolve_operator() 7239 case EXPR_NULL: in gfc_resolve_expr() 9133 if (target->expr_type == EXPR_NULL) in resolve_assoc_var() 10032 if (exp && exp->expr_type == EXPR_NULL in resolve_transfer() [all …]
|
| H A D | module.cc | 3592 minit ("NULL", EXPR_NULL), 3932 case EXPR_NULL: in mio_expr()
|
| H A D | trans-decl.cc | 1886 && sym->value && sym->value->expr_type != EXPR_NULL in gfc_get_symbol_decl() 1897 gcc_assert (!sym->value || sym->value->expr_type == EXPR_NULL); in gfc_get_symbol_decl() 5407 if (expr->expr_type == EXPR_CONSTANT || expr->expr_type == EXPR_NULL) in check_constant_initializer()
|
| H A D | gfortran.h | 180 EXPR_SUBSTRING, EXPR_STRUCTURE, EXPR_ARRAY, EXPR_NULL, EXPR_COMPCALL, EXPR_PPC enumerator
|
| H A D | gfc-internals.texi | 524 @code{gfc_expr} node with @code{expr_type} @code{EXPR_NULL}. If the base type
|