diff --git a/modules/src/flt_arith/flt_flt2ar.c b/modules/src/flt_arith/flt_flt2ar.c
index ed885b80b..b6ecf39ee 100644
--- a/modules/src/flt_arith/flt_flt2ar.c
+++ b/modules/src/flt_arith/flt_flt2ar.c
@@ -16,7 +16,6 @@ flt_flt2arith(e, uns)
 	*/
 	arith	n;
 	struct flt_mantissa a;
-	register int i;
 
 	if (uns) uns = 1;
 	flt_status = 0;