Home
last modified time | relevance | path

Searched refs:AS_ASSUMED_SIZE (Results 1 – 25 of 36) sorted by relevance

12

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Darray.c481 return AS_ASSUMED_SIZE; in match_array_element_spec()
517 return AS_ASSUMED_SIZE; in match_array_element_spec()
603 if (current_type != AS_ASSUMED_SIZE) in gfc_match_array_spec()
612 if (current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
614 as->type = AS_ASSUMED_SIZE; in gfc_match_array_spec()
648 case AS_ASSUMED_SIZE: in gfc_match_array_spec()
649 if (as->rank == 2 && current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
725 if (current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
727 as->cotype = AS_ASSUMED_SIZE; in gfc_match_array_spec()
761 case AS_ASSUMED_SIZE: in gfc_match_array_spec()
[all …]
H A Dcheck.c1133 if (ar->as->type == AS_ASSUMED_SIZE in dim_rank_check()
4804 && source->symtree->n.sym->as->type == AS_ASSUMED_SIZE)) in gfc_check_reshape()
5046 if (ar->as && ar->as->type == AS_ASSUMED_SIZE && ar->type == AR_FULL) in gfc_check_shape()
5145 && arg->symtree->n.sym->as->type == AS_ASSUMED_SIZE && arg->ref in gfc_check_sizeof()
5261 && ar->as->type != AS_ASSUMED_SIZE) in is_c_interoperable()
5297 && arg->symtree->n.sym->as->type == AS_ASSUMED_SIZE && arg->ref in gfc_check_c_sizeof()
5572 if (ar->as->type != AS_EXPLICIT && ar->as->type != AS_ASSUMED_SIZE in gfc_check_c_loc()
H A Dtrans-decl.c1053 && (as->type != AS_ASSUMED_SIZE in gfc_build_qualified_array()
1095 && as->type != AS_ASSUMED_SIZE) in gfc_build_qualified_array()
1249 if (as->type == AS_ASSUMED_SIZE) in gfc_build_dummy_array_decl()
2708 && f->sym->as->type != AS_ASSUMED_SIZE in create_function_arglist()
4803 if (type_of_array == AS_ASSUMED_SIZE && as->cp_was_assumed) in gfc_trans_deferred_vars()
4868 case AS_ASSUMED_SIZE: in gfc_trans_deferred_vars()
H A Dopenmp.c3940 if (sym->as && sym->as->type == AS_ASSUMED_SIZE) in check_array_not_assumed()
4452 if (n->sym->as && n->sym->as->type == AS_ASSUMED_SIZE)
4629 && n->sym->as->type == AS_ASSUMED_SIZE)
4754 else if (n->sym->as && n->sym->as->type == AS_ASSUMED_SIZE)
H A Dmatch.c5554 if (sym->as && sym->as->type == AS_ASSUMED_SIZE) in gfc_match_namelist()
6576 sym->as->type = AS_ASSUMED_SIZE; in select_rank_set_tmp()
6597 sym->as->type = AS_ASSUMED_SIZE; in select_rank_set_tmp()
H A Dresolve.c1629 if (need_full_assumed_size || !(sym->as && sym->as->type == AS_ASSUMED_SIZE)) in check_assumed_size_reference()
1635 && (e->ref->u.ar.as->type == AS_ASSUMED_SIZE) in check_assumed_size_reference()
4745 if (as->type == AS_ASSUMED_SIZE in compare_spec_to_ref()
10016 if (sym->as != NULL && sym->as->type == AS_ASSUMED_SIZE && exp->ref in resolve_transfer()
15038 if (nl->sym->as && nl->sym->as->type == AS_ASSUMED_SIZE) in resolve_fl_namelist()
15492 if (((as->type == AS_ASSUMED_SIZE && !as->cp_was_assumed) in resolve_symbol()
15496 if (as->type == AS_ASSUMED_SIZE) in resolve_symbol()
15613 if (sym->attr.dimension && sym->as->type != AS_ASSUMED_SIZE) in resolve_symbol()
15626 sym->as->type = AS_ASSUMED_SIZE; in resolve_symbol()
15811 && sym->as->type == AS_ASSUMED_SIZE) in resolve_symbol()
H A Dtrans-array.c3410 ar->as->type != AS_ASSUMED_SIZE in conv_array_index_offset()
3439 ar->as->type != AS_ASSUMED_SIZE in conv_array_index_offset()
3874 if (n < ar->dimen - 1 || ar->as->type != AS_ASSUMED_SIZE) in gfc_conv_array_ref()
4623 && info->ref->u.ar.as->type == AS_ASSUMED_SIZE) in gfc_conv_ss_startstride()
10668 as->type == AS_ASSUMED_SIZE); in gfc_alloc_allocatable_for_assignment()
H A Dinterface.c3330 && a->expr->symtree->n.sym->as->type == AS_ASSUMED_SIZE in gfc_compare_actual_formal()
5383 s->as->type = AS_ASSUMED_SIZE; in gfc_get_formal_from_actual_arglist()
H A Dgfortran.h152 AS_ASSUMED_SIZE, AS_IMPLIED_SHAPE, AS_ASSUMED_RANK, enumerator
H A Dsimplify.c4017 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper) in simplify_bound_dim()
4192 if (upper && type == AR_FULL && as && as->type == AS_ASSUMED_SIZE) in simplify_bound()
4248 || (d == array->rank && as && as->type == AS_ASSUMED_SIZE && upper)) in simplify_bound()
H A Ddump-parse-tree.c277 case AS_ASSUMED_SIZE: c = "AS_ASSUMED_SIZE"; break; in show_array_spec()
H A Dio.c1783 if (e->rank == 0 && e->symtree->n.sym->as->type == AS_ASSUMED_SIZE) in resolve_tag_format()
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Darray.cc488 return AS_ASSUMED_SIZE; in match_array_element_spec()
524 return AS_ASSUMED_SIZE; in match_array_element_spec()
610 if (current_type != AS_ASSUMED_SIZE) in gfc_match_array_spec()
619 if (current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
621 as->type = AS_ASSUMED_SIZE; in gfc_match_array_spec()
655 case AS_ASSUMED_SIZE: in gfc_match_array_spec()
656 if (as->rank == 2 && current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
732 if (current_type == AS_ASSUMED_SIZE) in gfc_match_array_spec()
734 as->cotype = AS_ASSUMED_SIZE; in gfc_match_array_spec()
768 case AS_ASSUMED_SIZE: in gfc_match_array_spec()
[all …]
H A Dcheck.cc1135 if (ar->as->type == AS_ASSUMED_SIZE in dim_rank_check()
4823 && source->symtree->n.sym->as->type == AS_ASSUMED_SIZE)) in gfc_check_reshape()
5065 if (ar->as && ar->as->type == AS_ASSUMED_SIZE && ar->type == AR_FULL) in gfc_check_shape()
5164 && arg->symtree->n.sym->as->type == AS_ASSUMED_SIZE && arg->ref in gfc_check_sizeof()
5280 && ar->as->type != AS_ASSUMED_SIZE) in is_c_interoperable()
5316 && arg->symtree->n.sym->as->type == AS_ASSUMED_SIZE && arg->ref in gfc_check_c_sizeof()
5591 if (ar->as->type != AS_EXPLICIT && ar->as->type != AS_ASSUMED_SIZE in gfc_check_c_loc()
H A Dtrans-decl.cc1058 && (as->type != AS_ASSUMED_SIZE in gfc_build_qualified_array()
1100 && as->type != AS_ASSUMED_SIZE) in gfc_build_qualified_array()
1254 if (as->type == AS_ASSUMED_SIZE) in gfc_build_dummy_array_decl()
2732 && f->sym->as->type != AS_ASSUMED_SIZE in create_function_arglist()
4734 if (type_of_array == AS_ASSUMED_SIZE && as->cp_was_assumed) in gfc_trans_deferred_vars()
4799 case AS_ASSUMED_SIZE: in gfc_trans_deferred_vars()
6699 if (sym->as && sym->as->type != AS_ASSUMED_SIZE in gfc_conv_cfi_to_gfc()
6969 && (sym->as->type == AS_ASSUMED_SIZE || sym->as->type == AS_EXPLICIT)) in gfc_conv_cfi_to_gfc()
H A Dmatch.cc5623 if (sym->as && sym->as->type == AS_ASSUMED_SIZE) in gfc_match_namelist()
6667 sym->as->type = AS_ASSUMED_SIZE; in select_rank_set_tmp()
6688 sym->as->type = AS_ASSUMED_SIZE; in select_rank_set_tmp()
H A Dresolve.cc1668 if (need_full_assumed_size || !(sym->as && sym->as->type == AS_ASSUMED_SIZE)) in check_assumed_size_reference()
1676 && (e->ref->u.ar.as->type == AS_ASSUMED_SIZE) in check_assumed_size_reference()
4831 if (as->type == AS_ASSUMED_SIZE in compare_spec_to_ref()
10155 if (sym->as != NULL && sym->as->type == AS_ASSUMED_SIZE && exp->ref in resolve_transfer()
15258 if (nl->sym->as && nl->sym->as->type == AS_ASSUMED_SIZE) in resolve_fl_namelist()
15716 if (((as->type == AS_ASSUMED_SIZE && !as->cp_was_assumed) in resolve_symbol()
15720 if (as->type == AS_ASSUMED_SIZE) in resolve_symbol()
15837 if (sym->attr.dimension && sym->as->type != AS_ASSUMED_SIZE) in resolve_symbol()
15850 sym->as->type = AS_ASSUMED_SIZE; in resolve_symbol()
16035 && sym->as->type == AS_ASSUMED_SIZE) in resolve_symbol()
H A Dinterface.cc3473 && aas->type == AS_ASSUMED_SIZE in gfc_compare_actual_formal()
3493 && ((aas->type == AS_ASSUMED_SIZE in gfc_compare_actual_formal()
5588 s->as->type = AS_ASSUMED_SIZE; in gfc_get_formal_from_actual_arglist()
H A Dopenmp.cc6127 if (sym->as && sym->as->type == AS_ASSUMED_SIZE) in check_array_not_assumed()
6770 if (n->sym->as && n->sym->as->type == AS_ASSUMED_SIZE) in resolve_omp_clauses()
7038 && n->sym->as->type == AS_ASSUMED_SIZE) in resolve_omp_clauses()
7192 else if (n->sym->as && n->sym->as->type == AS_ASSUMED_SIZE) in resolve_omp_clauses()
H A Dtrans-expr.cc5557 && (fsym->as->type == AS_ASSUMED_SIZE in gfc_conv_gfc_desc_to_cfi_desc()
5850 && e->symtree->n.sym->as->type == AS_ASSUMED_SIZE) in gfc_conv_gfc_desc_to_cfi_desc()
6830 && ref->u.ar.as->type != AS_ASSUMED_SIZE) in gfc_conv_procedure_call()
6850 && CLASS_DATA (e)->as->type == AS_ASSUMED_SIZE in gfc_conv_procedure_call()
6971 && e->ref->next->u.ar.as->type == AS_ASSUMED_SIZE) in gfc_conv_procedure_call()
6974 && e->ref->u.ar.as->type == AS_ASSUMED_SIZE))) in gfc_conv_procedure_call()
H A Dtrans-array.cc3507 ar->as->type != AS_ASSUMED_SIZE in conv_array_index_offset()
3536 ar->as->type != AS_ASSUMED_SIZE in conv_array_index_offset()
3964 if (n < ar->dimen - 1 || ar->as->type != AS_ASSUMED_SIZE) in gfc_conv_array_ref()
4730 && info->ref->u.ar.as->type == AS_ASSUMED_SIZE) in gfc_conv_ss_startstride()
10856 as->type == AS_ASSUMED_SIZE); in gfc_alloc_allocatable_for_assignment()
H A Ddecl.cc1636 || sym->as->type == AS_ASSUMED_SIZE in gfc_verify_c_interop_param()
2687 if (as->type == AS_ASSUMED_SIZE && as->rank == 1 in variable_decl()
10783 if (as->type == AS_ASSUMED_SIZE) in gfc_mod_pointee_as()
H A Dgfortran.h186 AS_ASSUMED_SIZE, AS_IMPLIED_SHAPE, AS_ASSUMED_RANK, enumerator
H A Dsimplify.cc4050 if ((!coarray && d == as->rank && as->type == AS_ASSUMED_SIZE && !upper) in simplify_bound_dim()
4225 if (upper && type == AR_FULL && as && as->type == AS_ASSUMED_SIZE) in simplify_bound()
4281 || (d == array->rank && as && as->type == AS_ASSUMED_SIZE && upper)) in simplify_bound()
H A Ddump-parse-tree.cc277 case AS_ASSUMED_SIZE: c = "AS_ASSUMED_SIZE"; break; in show_array_spec()

12