#! /bin/sh /usr/share/dpatch/dpatch-run
## 215-work-around-g77-bug-on-ia64.dpatch by  <kmccarty@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Work around what appears to be a g77 compiler bug on ia64 in test suite.

@DPATCH@
diff -urNad cernlib-2006.dfsg.2~/src/packlib/kernlib/kernnum/test/numchk3/f004ch.F cernlib-2006.dfsg.2/src/packlib/kernlib/kernnum/test/numchk3/f004ch.F
--- cernlib-2006.dfsg.2~/src/packlib/kernlib/kernnum/test/numchk3/f004ch.F	1996-02-15 17:48:45.000000000 +0000
+++ cernlib-2006.dfsg.2/src/packlib/kernlib/kernnum/test/numchk3/f004ch.F	2008-01-03 01:55:33.000000000 +0000
@@ -438,7 +438,7 @@
      +               MMPY,MRAN,MSCL,MSUB,VDIST,VMAXA,VSET)
           REAL      A(*), B(*), C(*), T(*), GA(*), GB(*), GC(*)
           REAL      FMONE(2), ALPHA(2), BETA(2)
-          LOGICAL   OK, OKA, OKL, OKT
+          LOGICAL   OK, OKA, OKL, OKT, OKTMP
           REAL      E, R0, RES
           EXTERNAL  VDIST,    VSET
 #include "kernnumt/sysdat.inc"
@@ -523,7 +523,8 @@
      +          CALL CHECKL(0,0,C,LG,GC,LC,LC12,LC21,OKT,VDIST,VSET)
              IF(.NOT. OKT)
      +             WRITE(IOUNIT,1011) ISUB,M,N,K,JCNFG,LC,LC12,LC21
-             OKL  =  OKL .AND. OKT
+             OKTMP = OKL .AND. OKT
+             OKL  =  OKTMP
   19         CONTINUE
           OK  =  OK .AND. OKA .AND. OKL
   20      CONTINUE