1660   gfc_expr *array_expr, *tmp_stat;  in gfc_conv_intrinsic_caf_get()  local
1677   array_expr = (lhs == NULL_TREE) ? expr->value.function.actual->expr : expr;  in gfc_conv_intrinsic_caf_get()
1678   type = gfc_typenode_for_spec (&array_expr->ts);  in gfc_conv_intrinsic_caf_get()
1682       caf_attr_store = gfc_caf_attr (array_expr);  in gfc_conv_intrinsic_caf_get()
1709       caf_reference = conv_expr_ref_to_caf_ref (&se->pre, array_expr);  in gfc_conv_intrinsic_caf_get()
1715 	      if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1717 	      if (array_expr->rank == 0)  in gfc_conv_intrinsic_caf_get()
1721 		  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1725 					     array_expr->ts.u.cl->backend_decl);  in gfc_conv_intrinsic_caf_get()
1726 		      argse.string_length = array_expr->ts.u.cl->backend_decl;  in gfc_conv_intrinsic_caf_get()
1736 		  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1737 		    gfc_conv_expr_descriptor (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1743 							     &array_expr->where)  in gfc_conv_intrinsic_caf_get()
1764 	  caf_decl = gfc_get_tree_for_caf_expr (array_expr);  in gfc_conv_intrinsic_caf_get()
1767 	  image_index = gfc_caf_get_image_index (&se->pre, array_expr,  in gfc_conv_intrinsic_caf_get()
1770 				    array_expr);  in gfc_conv_intrinsic_caf_get()
1792 							  array_expr->ts.type));  in gfc_conv_intrinsic_caf_get()
1800 	  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1808   if (array_expr->rank == 0)  in gfc_conv_intrinsic_caf_get()
1813       gfc_conv_expr (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1818 	  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1846       gfc_conv_expr_descriptor (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1851 							  : array_expr->rank,  in gfc_conv_intrinsic_caf_get()
1872 				       &array_expr->where);  in gfc_conv_intrinsic_caf_get()
1886   caf_decl = gfc_get_tree_for_caf_expr (array_expr);  in gfc_conv_intrinsic_caf_get()
1889   image_index = gfc_caf_get_image_index (&se->pre, array_expr, caf_decl);  in gfc_conv_intrinsic_caf_get()
1891 			    array_expr);  in gfc_conv_intrinsic_caf_get()
1915   if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()