1668   gfc_expr *array_expr, *tmp_stat;  in gfc_conv_intrinsic_caf_get()  local
1685   array_expr = (lhs == NULL_TREE) ? expr->value.function.actual->expr : expr;  in gfc_conv_intrinsic_caf_get()
1686   type = gfc_typenode_for_spec (&array_expr->ts);  in gfc_conv_intrinsic_caf_get()
1690       caf_attr_store = gfc_caf_attr (array_expr);  in gfc_conv_intrinsic_caf_get()
1717       caf_reference = conv_expr_ref_to_caf_ref (&se->pre, array_expr);  in gfc_conv_intrinsic_caf_get()
1723 	      if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1725 	      if (array_expr->rank == 0)  in gfc_conv_intrinsic_caf_get()
1729 		  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1733 					     array_expr->ts.u.cl->backend_decl);  in gfc_conv_intrinsic_caf_get()
1734 		      argse.string_length = array_expr->ts.u.cl->backend_decl;  in gfc_conv_intrinsic_caf_get()
1744 		  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1745 		    gfc_conv_expr_descriptor (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1751 							     &array_expr->where)  in gfc_conv_intrinsic_caf_get()
1772 	  caf_decl = gfc_get_tree_for_caf_expr (array_expr);  in gfc_conv_intrinsic_caf_get()
1775 	  image_index = gfc_caf_get_image_index (&se->pre, array_expr,  in gfc_conv_intrinsic_caf_get()
1778 				    array_expr);  in gfc_conv_intrinsic_caf_get()
1800 							  array_expr->ts.type));  in gfc_conv_intrinsic_caf_get()
1808 	  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1816   if (array_expr->rank == 0)  in gfc_conv_intrinsic_caf_get()
1821       gfc_conv_expr (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1826 	  if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()
1854       gfc_conv_expr_descriptor (&argse, array_expr);  in gfc_conv_intrinsic_caf_get()
1859 							  : array_expr->rank,  in gfc_conv_intrinsic_caf_get()
1880 				       &array_expr->where);  in gfc_conv_intrinsic_caf_get()
1894   caf_decl = gfc_get_tree_for_caf_expr (array_expr);  in gfc_conv_intrinsic_caf_get()
1897   image_index = gfc_caf_get_image_index (&se->pre, array_expr, caf_decl);  in gfc_conv_intrinsic_caf_get()
1899 			    array_expr);  in gfc_conv_intrinsic_caf_get()
1923   if (array_expr->ts.type == BT_CHARACTER)  in gfc_conv_intrinsic_caf_get()