xfoil/xfoil-6.97-overflow.patch

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