11676   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()
11721       if (gfc_is_coindexed (event_expr))  in conv_intrinsic_event_query()
11724 		     &event_expr->where);  in conv_intrinsic_event_query()
11731 				event_expr);  in conv_intrinsic_event_query()
11734       if (gfc_expr_attr (event_expr).dimension)  in conv_intrinsic_event_query()
11741 	  ar = &event_expr->ref->u.ar;  in conv_intrinsic_event_query()
11749 	  gfc_conv_expr_descriptor (&argse, event_expr);  in conv_intrinsic_event_query()