diff options
| author | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-13 01:16:58 +0000 |
|---|---|---|
| committer | Jean-Marc Zucconi <jmz@FreeBSD.org> | 1997-04-13 01:16:58 +0000 |
| commit | 4ff323dd450fa95949901235c99189a25477521d (patch) | |
| tree | 324009c03f1568ab4dd76c308533198a0b3bfe14 /lib/libF77/s_cat.c | |
| parent | 8609d4594f827e9458d287cc8c5a63ef3162d5bd (diff) | |
Notes
Diffstat (limited to 'lib/libF77/s_cat.c')
| -rw-r--r-- | lib/libF77/s_cat.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/libF77/s_cat.c b/lib/libF77/s_cat.c index 1d6fd24828bd..038f0ecfbee5 100644 --- a/lib/libF77/s_cat.c +++ b/lib/libF77/s_cat.c @@ -12,6 +12,8 @@ extern void free(); extern void exit_(); #else +#undef min +#undef max #include "stdlib.h" extern char *F77_aloc(ftnlen, char*); #endif @@ -49,7 +51,9 @@ s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll) } lp0 = lp; lp = lp1 = F77_aloc(L = ll, "s_cat"); + break; } + lp1 = lp; #endif /* NO_OVERWRITE */ for(i = 0 ; i < n ; ++i) { nc = ll; |