Lines Matching refs:event_expr
11265 gfc_expr *event_expr = code->ext.actual->expr; in conv_intrinsic_event_query() local
11292 if (event_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_event_query()
11293 && event_expr->value.function.isym in conv_intrinsic_event_query()
11294 && event_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_event_query()
11295 event_expr = event_expr->value.function.actual->expr; in conv_intrinsic_event_query()
11297 tree caf_decl = gfc_get_tree_for_caf_expr (event_expr); in conv_intrinsic_event_query()
11299 if (event_expr->symtree->n.sym->ts.type != BT_DERIVED in conv_intrinsic_event_query()
11300 || event_expr->symtree->n.sym->ts.u.derived->from_intmod in conv_intrinsic_event_query()
11302 || event_expr->symtree->n.sym->ts.u.derived->intmod_sym_id in conv_intrinsic_event_query()
11306 "yet supported", &event_expr->where); in conv_intrinsic_event_query()
11310 if (gfc_is_coindexed (event_expr)) in conv_intrinsic_event_query()
11313 &event_expr->where); in conv_intrinsic_event_query()
11320 event_expr); in conv_intrinsic_event_query()
11323 if (gfc_expr_attr (event_expr).dimension) in conv_intrinsic_event_query()
11330 ar = &event_expr->ref->u.ar; in conv_intrinsic_event_query()
11338 gfc_conv_expr_descriptor (&argse, event_expr); in conv_intrinsic_event_query()