Lines Matching refs:event_expr
10555 gfc_expr *event_expr = code->ext.actual->expr; in conv_intrinsic_event_query() local
10582 if (event_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_event_query()
10583 && event_expr->value.function.isym in conv_intrinsic_event_query()
10584 && event_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_event_query()
10585 event_expr = event_expr->value.function.actual->expr; in conv_intrinsic_event_query()
10587 tree caf_decl = gfc_get_tree_for_caf_expr (event_expr); in conv_intrinsic_event_query()
10589 if (event_expr->symtree->n.sym->ts.type != BT_DERIVED in conv_intrinsic_event_query()
10590 || event_expr->symtree->n.sym->ts.u.derived->from_intmod in conv_intrinsic_event_query()
10592 || event_expr->symtree->n.sym->ts.u.derived->intmod_sym_id in conv_intrinsic_event_query()
10596 "yet supported", &event_expr->where); in conv_intrinsic_event_query()
10600 if (gfc_is_coindexed (event_expr)) in conv_intrinsic_event_query()
10603 &event_expr->where); in conv_intrinsic_event_query()
10610 event_expr); in conv_intrinsic_event_query()
10613 if (gfc_expr_attr (event_expr).dimension) in conv_intrinsic_event_query()
10620 ar = &event_expr->ref->u.ar; in conv_intrinsic_event_query()
10628 gfc_conv_expr_descriptor (&argse, event_expr); in conv_intrinsic_event_query()