11603   gfc_expr *atom_expr = code->ext.actual->expr;  in conv_intrinsic_atomic_op()  local
11607   if (atom_expr->expr_type == EXPR_FUNCTION  in conv_intrinsic_atomic_op()
11608       && atom_expr->value.function.isym  in conv_intrinsic_atomic_op()
11609       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)  in conv_intrinsic_atomic_op()
11610     atom_expr = atom_expr->value.function.actual->expr;  in conv_intrinsic_atomic_op()
11617   gfc_conv_expr (&argse, atom_expr);  in conv_intrinsic_atomic_op()
11624       && code->ext.actual->next->expr->ts.kind == atom_expr->ts.kind)  in conv_intrinsic_atomic_op()
11698       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);  in conv_intrinsic_atomic_op()
11702       if (gfc_is_coindexed (atom_expr))  in conv_intrinsic_atomic_op()
11703 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);  in conv_intrinsic_atomic_op()
11716 				atom_expr);  in conv_intrinsic_atomic_op()
11723 						  (int) atom_expr->ts.type),  in conv_intrinsic_atomic_op()
11725 						  (int) atom_expr->ts.kind));  in conv_intrinsic_atomic_op()
11731 						  (int) atom_expr->ts.type),  in conv_intrinsic_atomic_op()
11733 						  (int) atom_expr->ts.kind));  in conv_intrinsic_atomic_op()
11808   gfc_expr *atom_expr = code->ext.actual->next->expr;  in conv_intrinsic_atomic_ref()  local
11810   if (atom_expr->expr_type == EXPR_FUNCTION  in conv_intrinsic_atomic_ref()
11811       && atom_expr->value.function.isym  in conv_intrinsic_atomic_ref()
11812       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)  in conv_intrinsic_atomic_ref()
11813     atom_expr = atom_expr->value.function.actual->expr;  in conv_intrinsic_atomic_ref()
11819   gfc_conv_expr (&argse, atom_expr);  in conv_intrinsic_atomic_ref()
11826       && code->ext.actual->expr->ts.kind == atom_expr->ts.kind)  in conv_intrinsic_atomic_ref()
11854       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);  in conv_intrinsic_atomic_ref()
11858       if (gfc_is_coindexed (atom_expr))  in conv_intrinsic_atomic_ref()
11859 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);  in conv_intrinsic_atomic_ref()
11865 				atom_expr);  in conv_intrinsic_atomic_ref()
11879 						(int) atom_expr->ts.type),  in conv_intrinsic_atomic_ref()
11881 						(int) atom_expr->ts.kind));  in conv_intrinsic_atomic_ref()
11915   gfc_expr *atom_expr = code->ext.actual->expr;  in conv_intrinsic_atomic_cas()  local
11917   if (atom_expr->expr_type == EXPR_FUNCTION  in conv_intrinsic_atomic_cas()
11918       && atom_expr->value.function.isym  in conv_intrinsic_atomic_cas()
11919       && atom_expr->value.function.isym->id == GFC_ISYM_CAF_GET)  in conv_intrinsic_atomic_cas()
11920     atom_expr = atom_expr->value.function.actual->expr;  in conv_intrinsic_atomic_cas()
11926   gfc_conv_expr (&argse, atom_expr);  in conv_intrinsic_atomic_cas()
11948 	 == atom_expr->ts.kind)  in conv_intrinsic_atomic_cas()
11976       caf_decl = gfc_get_tree_for_caf_expr (atom_expr);  in conv_intrinsic_atomic_cas()
11980       if (gfc_is_coindexed (atom_expr))  in conv_intrinsic_atomic_cas()
11981 	image_index = gfc_caf_get_image_index (&block, atom_expr, caf_decl);  in conv_intrinsic_atomic_cas()
12002 				atom_expr);  in conv_intrinsic_atomic_cas()
12008 						      (int) atom_expr->ts.type),  in conv_intrinsic_atomic_cas()
12010 						(int) atom_expr->ts.kind));  in conv_intrinsic_atomic_cas()