Cross Reference: /src/external/gpl3/gcc.old/dist/gcc/fortran/trans-intrinsic.cc

Lines Matching defs:lhs_expr
1932   gfc_expr *lhs_expr, *rhs_expr, *tmp_stat, *tmp_team;
1943   lhs_expr = code->ext.actual->expr;
1945   may_require_tmp = gfc_check_dependency (lhs_expr, rhs_expr, true) == 0
1949   lhs_caf_attr = gfc_caf_attr (lhs_expr);
1956   if (lhs_expr->rank == 0)
1958       if (lhs_expr->ts.type == BT_CHARACTER && lhs_expr->ts.deferred)
1960 	  lhs_se.expr = gfc_get_tree_for_caf_expr (lhs_expr);
1967 	  gfc_conv_expr (&lhs_se, lhs_expr);
1978       gfc_conv_expr_descriptor (&lhs_se, lhs_expr);
1981       lhs_type = gfc_typenode_for_spec (&lhs_expr->ts);
1985 			gfc_has_vector_subscript (lhs_expr)
1986 			? gfc_find_array_ref (lhs_expr)->dimen
1987 			: lhs_expr->rank,
1992       bool has_vector = gfc_has_vector_subscript (lhs_expr);
1994       if (gfc_is_coindexed (lhs_expr) || !has_vector)
2003 	      ar = gfc_find_array_ref (lhs_expr);
2010 	  gfc_conv_expr_descriptor (&lhs_se, lhs_expr);
2013 	  lhs_type = gfc_typenode_for_spec (&lhs_expr->ts);
2017 							      : lhs_expr->rank,
2033 	     because using the standard gfc_conv_expr (lhs_expr) did the
2047 	  lss_for_tmparray = gfc_walk_expr (lhs_expr);
2049 	     temporary to the lhs_expr.  gfc_trans_create_temp_array replaces
2052 	  lss_real = gfc_walk_expr (lhs_expr);
2057 	  gfc_conv_loop_setup (&loop, &lhs_expr->where);
2058 	  lhs_type = gfc_typenode_for_spec (&lhs_expr->ts);
2062 				       &lhs_expr->where);
2068 	  gfc_conv_expr (&se, lhs_expr);
2101 	  /* Now create the assignment of lhs_expr = tmp_array.  */
2113   lhs_kind = build_int_cst (integer_type_node, lhs_expr->ts.kind);
2117   if (!gfc_is_coindexed (lhs_expr)
2119 	  || !(lhs_expr->rank > 0
2122       bool lhs_may_realloc = lhs_expr->rank > 0 && lhs_caf_attr.allocatable;
2125       if (lhs_expr->rank == 0 && lhs_caf_attr.allocatable)
2130 	  gfc_conv_expr (&scal_se, lhs_expr);
2136 				       gfc_typenode_for_spec (&lhs_expr->ts)),
2147 	    && gfc_full_array_ref_p (lhs_expr->ref, NULL);
2161   caf_decl = gfc_get_tree_for_caf_expr (lhs_expr);
2164   image_index = gfc_caf_get_image_index (&block, lhs_expr, caf_decl);
2171 			      lhs_expr);
2242   tmp_stat = gfc_find_stat_co (lhs_expr);
2254   tmp_team = gfc_find_team_co (lhs_expr);
2271 	  reference = conv_expr_ref_to_caf_ref (&block, lhs_expr);
2280 						    lhs_expr->ts.type));
2307 	  tmp_stat = gfc_find_stat_co (lhs_expr);
2322 	  lhs_reference = conv_expr_ref_to_caf_ref (&block, lhs_expr);
2331 						    lhs_expr->ts.type),
OpenGrok
