blob: 4c93f9d296f96cc92ad086e944cfb6c6c58c34ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$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)
{
|
