Home
last modified time | relevance | path

Searched refs:gfc_expr_attr (Results 1 – 25 of 38) sorted by relevance

12

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dcheck.cc692 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in coarray_check()
734 if (e->rank != 0 && e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in array_check()
1446 attr1 = gfc_expr_attr (pointer); in gfc_check_associated()
1473 attr2 = gfc_expr_attr (target); in gfc_check_associated()
2206 if (a->ts.type == BT_CLASS || gfc_expr_attr (a).alloc_comp) in gfc_check_co_broadcast()
2232 if (gfc_expr_attr (a).alloc_comp) in gfc_check_co_reduce()
2245 attr = gfc_expr_attr (op); in gfc_check_co_reduce()
5383 attr = gfc_expr_attr (fptr); in gfc_check_c_f_pointer()
5472 attr = gfc_expr_attr (fptr); in gfc_check_c_f_procpointer()
5508 attr = gfc_expr_attr (x); in gfc_check_c_funloc()
[all …]
H A Dexpr.cc653 if (gfc_expr_attr(expr).pdt_kind) in gfc_extract_int()
706 if (gfc_expr_attr(expr).pdt_kind) in gfc_extract_hwi()
3044 if (gfc_expr_attr (e).pdt_kind) in gfc_check_init_expr()
3792 && rvalue->expr_type == EXPR_FUNCTION && gfc_expr_attr (rvalue).pointer) in gfc_check_assign()
3842 if (gfc_expr_attr (lvalue).pdt_kind || gfc_expr_attr (lvalue).pdt_len) in gfc_check_assign()
3915 lhs_attr = gfc_expr_attr (lvalue); in gfc_check_pointer_assign()
4058 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4080 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4354 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4625 attr = gfc_expr_attr (rvalue); in gfc_check_assign_symbol()
[all …]
H A Dtrans-expr.cc775 gfc_expr_attr (e)); in gfc_conv_derived_to_class()
844 if (gfc_expr_attr (e).codimension) in gfc_conv_derived_to_class()
1035 gfc_expr_attr (e)); in gfc_conv_intrinsic_to_class()
1182 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension) in gfc_conv_class_to_class()
1202 gfc_expr_attr (e)); in gfc_conv_class_to_class()
6220 && (gfc_expr_attr (e).flavor != FL_PROCEDURE in gfc_conv_procedure_call()
6221 || gfc_expr_attr (e).proc != PROC_UNKNOWN)) in gfc_conv_procedure_call()
7180 attr = gfc_expr_attr (e); in gfc_conv_procedure_call()
9684 if (vptr_expr != NULL && gfc_expr_attr (vptr_expr).class_ok) in trans_class_vptr_len_assignment()
9915 non_proc_ptr_assign = !(gfc_expr_attr (expr1).proc_pointer in gfc_trans_pointer_assignment()
[all …]
H A Dinterface.cc2195 symbol_attribute attr = gfc_expr_attr (actual); in compare_allocatable()
2219 attr = gfc_expr_attr (actual); in compare_pointer()
2456 symbol_attribute actual_attr = gfc_expr_attr (actual); in compare_parameter()
4151 || gfc_expr_attr (a->expr).lock_comp)) in gfc_procedure_use()
4166 || gfc_expr_attr (a->expr).event_comp)) in gfc_procedure_use()
4437 || !gfc_expr_attr (base->expr).class_ok) in matching_typebound_op()
H A Dresolve.cc1519 a = gfc_expr_attr (cons->expr); in resolve_structure_cons()
6463 if (base->ts.type == BT_CLASS && !gfc_expr_attr (base).class_ok) in check_typebound_baseobject()
7641 attr = gfc_expr_attr (e); in resolve_deallocate_expr()
7857 attr = gfc_expr_attr (e); in resolve_allocate_expr()
7975 && ((codimension && gfc_expr_attr (code->expr3).lock_comp) in resolve_allocate_expr()
7990 && ((codimension && gfc_expr_attr (code->expr3).event_comp) in resolve_allocate_expr()
9084 if (gfc_expr_attr (target).proc_pointer) in resolve_assoc_var()
9122 || gfc_expr_attr (target).pointer; in resolve_assoc_var()
9314 if (sym->ts.type == BT_CLASS && gfc_expr_attr (target).class_ok) in resolve_assoc_var()
9924 if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable in resolve_select_rank()
[all …]
H A Ddependency.cc1334 attr1 = gfc_expr_attr (expr1); in gfc_check_dependency()
1335 attr2 = gfc_expr_attr (expr2); in gfc_check_dependency()
H A Dsimplify.cc3097 if ((a->ts.type == BT_CLASS && !gfc_expr_attr (a).class_ok) in gfc_simplify_extends_type_of()
3098 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok)) in gfc_simplify_extends_type_of()
3141 if (((a->ts.type == BT_CLASS && gfc_expr_attr (a).class_ok) in gfc_simplify_same_type_as()
3142 || (b->ts.type == BT_CLASS && gfc_expr_attr (b).class_ok)) in gfc_simplify_same_type_as()
4208 && (gfc_expr_attr (array).allocatable || gfc_expr_attr (array).pointer)) in simplify_bound()
4214 && !gfc_expr_attr (array).allocatable in simplify_bound()
4215 && !gfc_expr_attr (array).pointer)); in simplify_bound()
H A Dtrans-stmt.cc918 if (gfc_expr_attr (code->expr1).dimension) in gfc_trans_lock_unlock()
1116 if (gfc_expr_attr (code->expr1).dimension) in gfc_trans_event_post_wait()
3694 symbol_attribute attr = gfc_expr_attr (code->expr1); in gfc_trans_select_rank_cases()
6329 attr = gfc_expr_attr (code->expr3); in gfc_trans_allocate()
6852 else if (gfc_expr_attr (expr).allocatable) in gfc_trans_allocate()
H A Dtrans-array.cc6117 && gfc_expr_attr (expr3).dimension) in gfc_array_allocate()
7667 || (gfc_expr_attr (expr).proc_pointer in gfc_conv_expr_descriptor()
7668 && gfc_expr_attr (expr).elemental) in gfc_conv_expr_descriptor()
8120 symbol_attribute attr = gfc_expr_attr (expr); in gfc_tree_array_size()
11689 && (gfc_expr_attr (arg->expr).optional in gfc_walk_elemental_function_args()
11690 || gfc_expr_attr (arg->expr).allocatable in gfc_walk_elemental_function_args()
11691 || gfc_expr_attr (arg->expr).pointer)) in gfc_walk_elemental_function_args()
H A DChangeLog-2013218 * primary.c (gfc_expr_attr): Check for result symbol.
2071 * expr.c (gfc_check_assign): Use 'gfc_expr_attr' to evaluate attributes
H A Dgfortran.h3811 symbol_attribute gfc_expr_attr (gfc_expr *);
H A Dtrans-intrinsic.cc7941 attr = gfc_expr_attr (e); in gfc_conv_intrinsic_size()
8832 if (gfc_expr_attr (e).codimension) in gfc_conv_allocated()
9021 gfc_expr_attr (arg2->expr)); in gfc_conv_associated()
11425 if (gfc_expr_attr (stat_expr).optional) in conv_co_collective()
12103 if (gfc_expr_attr (event_expr).dimension) in conv_intrinsic_event_query()
H A Dtrans-io.cc2625 && gfc_expr_attr (expr).pointer) in gfc_trans_transfer()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dcheck.c692 if (e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in coarray_check()
734 if (e->rank != 0 && e->ts.type == BT_CLASS && gfc_expr_attr (e).class_ok in array_check()
1444 attr1 = gfc_expr_attr (pointer); in gfc_check_associated()
1471 attr2 = gfc_expr_attr (target); in gfc_check_associated()
2202 if (a->ts.type == BT_CLASS || gfc_expr_attr (a).alloc_comp) in gfc_check_co_broadcast()
2228 if (gfc_expr_attr (a).alloc_comp) in gfc_check_co_reduce()
2241 attr = gfc_expr_attr (op); in gfc_check_co_reduce()
5364 attr = gfc_expr_attr (fptr); in gfc_check_c_f_pointer()
5453 attr = gfc_expr_attr (fptr); in gfc_check_c_f_procpointer()
5489 attr = gfc_expr_attr (x); in gfc_check_c_funloc()
[all …]
H A Dexpr.c645 if (gfc_expr_attr(expr).pdt_kind) in gfc_extract_int()
698 if (gfc_expr_attr(expr).pdt_kind) in gfc_extract_hwi()
3018 if (gfc_expr_attr (e).pdt_kind) in gfc_check_init_expr()
3760 && rvalue->expr_type == EXPR_FUNCTION && gfc_expr_attr (rvalue).pointer) in gfc_check_assign()
3810 if (gfc_expr_attr (lvalue).pdt_kind || gfc_expr_attr (lvalue).pdt_len) in gfc_check_assign()
3883 lhs_attr = gfc_expr_attr (lvalue); in gfc_check_pointer_assign()
4026 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4048 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4322 attr = gfc_expr_attr (rvalue); in gfc_check_pointer_assign()
4585 attr = gfc_expr_attr (rvalue); in gfc_check_assign_symbol()
[all …]
H A Dtrans-expr.c692 gfc_expr_attr (e)); in gfc_conv_derived_to_class()
754 if (gfc_expr_attr (e).codimension) in gfc_conv_derived_to_class()
941 gfc_expr_attr (e)); in gfc_conv_intrinsic_to_class()
1088 && ((gfc_expr_attr (e).codimension && gfc_expr_attr (e).dimension) in gfc_conv_class_to_class()
1108 gfc_expr_attr (e)); in gfc_conv_class_to_class()
5407 symbol_attribute attr = gfc_expr_attr (e); in gfc_conv_gfc_desc_to_cfi_desc()
5449 && (gfc_expr_attr (e).pointer in gfc_conv_gfc_desc_to_cfi_desc()
5450 || gfc_expr_attr (e).allocatable)) in gfc_conv_gfc_desc_to_cfi_desc()
5786 && (gfc_expr_attr (e).flavor != FL_PROCEDURE in gfc_conv_procedure_call()
5787 || gfc_expr_attr (e).proc != PROC_UNKNOWN)) in gfc_conv_procedure_call()
[all …]
H A Dinterface.c2175 symbol_attribute attr = gfc_expr_attr (actual); in compare_allocatable()
2199 attr = gfc_expr_attr (actual); in compare_pointer()
2406 symbol_attribute actual_attr = gfc_expr_attr (actual); in compare_parameter()
3948 || gfc_expr_attr (a->expr).lock_comp)) in gfc_procedure_use()
3963 || gfc_expr_attr (a->expr).event_comp)) in gfc_procedure_use()
4234 || !gfc_expr_attr (base->expr).class_ok) in matching_typebound_op()
H A Dresolve.c1480 a = gfc_expr_attr (cons->expr); in resolve_structure_cons()
6341 if (base->ts.type == BT_CLASS && !gfc_expr_attr (base).class_ok) in check_typebound_baseobject()
7519 attr = gfc_expr_attr (e); in resolve_deallocate_expr()
7735 attr = gfc_expr_attr (e); in resolve_allocate_expr()
7852 && ((codimension && gfc_expr_attr (code->expr3).lock_comp) in resolve_allocate_expr()
7867 && ((codimension && gfc_expr_attr (code->expr3).event_comp) in resolve_allocate_expr()
8946 if (gfc_expr_attr (target).proc_pointer) in resolve_assoc_var()
8984 || gfc_expr_attr (target).pointer; in resolve_assoc_var()
9176 if (sym->ts.type == BT_CLASS && gfc_expr_attr (target).class_ok) in resolve_assoc_var()
9780 if (case_value == -1 && (gfc_expr_attr (code->expr1).allocatable in resolve_select_rank()
[all …]
H A Ddependency.c1333 attr1 = gfc_expr_attr (expr1); in gfc_check_dependency()
1334 attr2 = gfc_expr_attr (expr2); in gfc_check_dependency()
H A Dsimplify.c3064 if ((a->ts.type == BT_CLASS && !gfc_expr_attr (a).class_ok) in gfc_simplify_extends_type_of()
3065 || (mold->ts.type == BT_CLASS && !gfc_expr_attr (mold).class_ok)) in gfc_simplify_extends_type_of()
3108 if (((a->ts.type == BT_CLASS && gfc_expr_attr (a).class_ok) in gfc_simplify_same_type_as()
3109 || (b->ts.type == BT_CLASS && gfc_expr_attr (b).class_ok)) in gfc_simplify_same_type_as()
4175 && (gfc_expr_attr (array).allocatable || gfc_expr_attr (array).pointer)) in simplify_bound()
4181 && !gfc_expr_attr (array).allocatable in simplify_bound()
4182 && !gfc_expr_attr (array).pointer)); in simplify_bound()
H A Dtrans-stmt.c884 if (gfc_expr_attr (code->expr1).dimension) in gfc_trans_lock_unlock()
1082 if (gfc_expr_attr (code->expr1).dimension) in gfc_trans_event_post_wait()
6293 attr = gfc_expr_attr (code->expr3); in gfc_trans_allocate()
6619 symbol_attribute attr = gfc_expr_attr (code->expr3); in gfc_trans_allocate()
6819 else if (gfc_expr_attr (expr).allocatable) in gfc_trans_allocate()
H A Dtrans-array.c6007 && gfc_expr_attr (expr3).dimension) in gfc_array_allocate()
7542 || (gfc_expr_attr (expr).proc_pointer in gfc_conv_expr_descriptor()
7543 && gfc_expr_attr (expr).elemental) in gfc_conv_expr_descriptor()
7985 && gfc_expr_attr (expr).select_rank_temporary) in gfc_conv_expr_descriptor()
11386 && (gfc_expr_attr (arg->expr).optional in gfc_walk_elemental_function_args()
11387 || gfc_expr_attr (arg->expr).allocatable in gfc_walk_elemental_function_args()
11388 || gfc_expr_attr (arg->expr).pointer)) in gfc_walk_elemental_function_args()
H A Dgfortran.h3523 symbol_attribute gfc_expr_attr (gfc_expr *);
H A Dtrans-io.c2600 && gfc_expr_attr (expr).pointer) in gfc_trans_transfer()
H A Dprimary.c2776 gfc_expr_attr (gfc_expr *e) in gfc_expr_attr() function

12