11852   gfc_expr *event_expr = code->ext.actual->expr;  in conv_intrinsic_event_query()  local
11879       if (event_expr->expr_type == EXPR_FUNCTION  in conv_intrinsic_event_query()
11880 	  && event_expr->value.function.isym  in conv_intrinsic_event_query()
11881 	  && event_expr->value.function.isym->id == GFC_ISYM_CAF_GET)  in conv_intrinsic_event_query()
11882 	event_expr = event_expr->value.function.actual->expr;  in conv_intrinsic_event_query()
11884       tree caf_decl = gfc_get_tree_for_caf_expr (event_expr);  in conv_intrinsic_event_query()
11886       if (event_expr->symtree->n.sym->ts.type != BT_DERIVED  in conv_intrinsic_event_query()
11887 	  || event_expr->symtree->n.sym->ts.u.derived->from_intmod  in conv_intrinsic_event_query()
11889 	  || event_expr->symtree->n.sym->ts.u.derived->intmod_sym_id  in conv_intrinsic_event_query()
11893 		     "yet supported", &event_expr->where);  in conv_intrinsic_event_query()
11897       if (gfc_is_coindexed (event_expr))  in conv_intrinsic_event_query()
11900 		     &event_expr->where);  in conv_intrinsic_event_query()
11907 				event_expr);  in conv_intrinsic_event_query()
11910       if (gfc_expr_attr (event_expr).dimension)  in conv_intrinsic_event_query()
11917 	  ar = &event_expr->ref->u.ar;  in conv_intrinsic_event_query()
11925 	  gfc_conv_expr_descriptor (&argse, event_expr);  in conv_intrinsic_event_query()