13 lines
325 B
Text
13 lines
325 B
Text
$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)
|
|
{
|