sci-physics/xfoil/files/xfoil-6.97-overflow.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

--- src/pplot.f.orig	2008-08-21 20:21:08.000000000 +0100
+++ src/pplot.f	2008-08-21 20:21:42.000000000 +0100
@@ -36,7 +36,7 @@
       PROGRAM PPLOT
       INCLUDE 'PPLOT.INC'
 C
-      LOGICAL ERROR, LGETFN
+      LOGICAL ERROR, LGETFN, LERR
       REAL RINP(10)
       REAL CPOLO(NAX,IPTOT,NPX), VPOLO(NAX,2,NPX)
 C
--- src/xoper.f.orig	2008-08-22 15:55:27.000000000 +0100
+++ src/xoper.f	2008-08-22 15:53:36.000000000 +0100
@@ -114,7 +114,7 @@
 C---- don't try to read integers, since might get integer overflow
       DO I=1, NINPUT
         IF(ABS(RINPUT(I)) .GT. 2.1E9) THEN
-         IINPUT(I) = 2**31
+         IINPUT(I) = HUGE(0)
         ELSE
          IINPUT(I) = INT(RINPUT(I))
         ENDIF