105 			      gfc_ref *ref, gfc_expr *rvalue)  in create_character_initializer()  argument
163   if (rvalue->ts.type == BT_HOLLERITH)  in create_character_initializer()
164     len = rvalue->representation.length - rvalue->ts.u.pad;  in create_character_initializer()
166     len = rvalue->value.character.length;  in create_character_initializer()
174 			   "variable has zero length", &rvalue->where);  in create_character_initializer()
180 			   "fit the variable (%ld/%ld)", &rvalue->where,  in create_character_initializer()
186   if (rvalue->ts.type == BT_HOLLERITH)  in create_character_initializer()
189 	dest[start+i] = rvalue->representation.string[i];  in create_character_initializer()
192     memcpy (&dest[start], rvalue->value.character.string,  in create_character_initializer()
199   if (rvalue->ts.type == BT_HOLLERITH)  in create_character_initializer()
218 gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index,  in gfc_assign_data_value()  argument
339 			   > LOCATION_LINE (rvalue->where.lb->location))  in gfc_assign_data_value()
340 			  ? con->expr : rvalue;  in gfc_assign_data_value()
386 						 NULL, &rvalue->where,  in gfc_assign_data_value()
414 						 NULL, &rvalue->where,  in gfc_assign_data_value()
486 	  rexpr = gfc_copy_expr (rvalue);  in gfc_assign_data_value()
559   if (init != NULL && init->where.lb && rvalue->where.lb)  in gfc_assign_data_value()
565 	      > LOCATION_LINE (rvalue->where.lb->location))  in gfc_assign_data_value()
566 	   ? init : rvalue;  in gfc_assign_data_value()
573 	      && rvalue->expr_type == EXPR_CONSTANT))  in gfc_assign_data_value()
581       expr = create_character_initializer (init, last_ts, ref, rvalue);  in gfc_assign_data_value()
594       expr = gfc_copy_expr (rvalue);  in gfc_assign_data_value()