Home | History | Annotate | Download | only in fortran

Lines Matching defs:result_len

2562   size_t src_len, result_len;
2565   gfc_target_expr_size (result, &result_len);
2567   if (src_len > result_len)
2574   result->representation.string = XCNEWVEC (char, result_len + 1);
2576 	  MIN (result_len, src_len));
2578   if (src_len < result_len)
2579     memset (&result->representation.string[src_len], ' ', result_len - src_len);
2581   result->representation.string[result_len] = '\0'; /* For debugger  */
2582   result->representation.length = result_len;
2593   size_t src_len, result_len, i;
2595   gfc_target_expr_size (result, &result_len);
2597   if (src_len > result_len)
2602   result->representation.string = XCNEWVEC (char, result_len + 1);
2604   for (i = 0; i < MIN (result_len, src_len); i++)
2607   if (src_len < result_len)
2609 	    result_len - src_len);
2611   result->representation.string[result_len] = '\0'; /* For debugger.  */
2612   result->representation.length = result_len;