--- 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);