Home
last modified time | relevance | path

Searched refs:event_expr (Results 1 – 2 of 2) sorted by relevance

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans-intrinsic.c11676 gfc_expr *event_expr = code->ext.actual->expr; in conv_intrinsic_event_query() local
11703 if (event_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_event_query()
11704 && event_expr->value.function.isym in conv_intrinsic_event_query()
11705 && event_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_event_query()
11706 event_expr = event_expr->value.function.actual->expr; in conv_intrinsic_event_query()
11708 tree caf_decl = gfc_get_tree_for_caf_expr (event_expr); in conv_intrinsic_event_query()
11710 if (event_expr->symtree->n.sym->ts.type != BT_DERIVED in conv_intrinsic_event_query()
11711 || event_expr->symtree->n.sym->ts.u.derived->from_intmod in conv_intrinsic_event_query()
11713 || event_expr->symtree->n.sym->ts.u.derived->intmod_sym_id in conv_intrinsic_event_query()
11717 "yet supported", &event_expr->where); in conv_intrinsic_event_query()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans-intrinsic.cc12045 gfc_expr *event_expr = code->ext.actual->expr; in conv_intrinsic_event_query() local
12072 if (event_expr->expr_type == EXPR_FUNCTION in conv_intrinsic_event_query()
12073 && event_expr->value.function.isym in conv_intrinsic_event_query()
12074 && event_expr->value.function.isym->id == GFC_ISYM_CAF_GET) in conv_intrinsic_event_query()
12075 event_expr = event_expr->value.function.actual->expr; in conv_intrinsic_event_query()
12077 tree caf_decl = gfc_get_tree_for_caf_expr (event_expr); in conv_intrinsic_event_query()
12079 if (event_expr->symtree->n.sym->ts.type != BT_DERIVED in conv_intrinsic_event_query()
12080 || event_expr->symtree->n.sym->ts.u.derived->from_intmod in conv_intrinsic_event_query()
12082 || event_expr->symtree->n.sym->ts.u.derived->intmod_sym_id in conv_intrinsic_event_query()
12086 "yet supported", &event_expr->where); in conv_intrinsic_event_query()
[all …]