$NetBSD: patch-af,v 1.5 2004/09/15 12:27:26 dmcmahill Exp $

--- libI77/lwrite.c.orig	Wed Sep 15 12:00:47 2004
+++ libI77/lwrite.c
@@ -248,7 +248,7 @@ l_write(ftnint *number, char *ptr, ftnle
 	double y,z;
 	real *xx;
 	doublereal *yy;
-	for(i=0;i< *number; i++)
+	for(i=0;i< (int)*number; i++)
 	{
 		switch((int)type)
 		{
