diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 5206fa8b7c1..c5350230259 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+2001-05-15  Loren J. Rittle  <ljrittle@acm.org>
+
+	* libI77/endfile.c (t_runc): Add cast to help case where
+	ftruncate() prototype is somehow missing even though autoconf
+	test found it properly.
+
 2001-02-26  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* libI77/configure.in: Test for ftruncate.
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 8e60d05f439..7b009c7013d 100644
--- a/libf2c/libI77/endfile.c
+++ b/libf2c/libI77/endfile.c
@@ -129,7 +129,10 @@ done:
 	f__cf = b->ufd = bf;
 #else  /* !defined(HAVE_FTRUNCATE) */
 	fflush(b->ufd);
-	rc = ftruncate(fileno(b->ufd),loc);
+	/* The cast of loc is helpful on FreeBSD.  It helps
+	in any case where ftruncate() prototype is somehow missing
+	even though autoconf test found it properly.  */
+	rc = ftruncate(fileno(b->ufd), (off_t)loc);
 #endif /* !defined(HAVE_FTRUNCATE) */
 	if (rc)
 		err(a->aerr,111,"endfile");