1 /* Unless compiled with -DNO_OVERWRITE, this variant of s_cat allows the
2 * target of a concatenation to appear on its right-hand side (contrary
3 * to the Fortran 77 Standard, but in accordance with Fortran 90).
13 extern char *F77_aloc (ftnlen, char *);
15 #endif /* NO_OVERWRITE */
18 s_cat (char *lp, char *rpp[], ftnint rnp[], ftnint * np, ftnlen ll)
35 if (rp >= lp1 || rp + m <= lp)
46 lp = lp1 = F77_aloc (L = ll, "s_cat");
50 #endif /* NO_OVERWRITE */
51 for (i = 0; i < n; ++i)