--- a/prim
+++ b/prim
@@ -2153,6 +2153,7 @@
 size_t siglen;
 int flag;
 int decpt;
+char *ecvt(double, int, int *, int *);
 sig=ecvt(r, u, &decpt, &flag);
 n=(r==0. ? 1 : decpt);
 f1=FLAG(flag!=0);