alphaev6-unknown-linux-gnu: error in extract_insn, at recog.c:2127

[Toon Moene <toon at moene dot indiv dot nluug dot nl>]

I get on alphaev6-unknown-linux-gnu, with CVS head, since about two
days:

/usr/snp/bin/g77 -S -O tabdef.f
tabdef.f: In subroutine `tabdef':
tabdef.f:30: Unrecognizable insn:
(insn/i 33 32 34 (set (reg:SF 78)
        (if_then_else:SF (eq (reg:DF 85)
                (const_double:DF (cc0) 0 [0x0] 0 [0x0] [0]))
            (reg:SF 78)
            (reg:SF 84))) -1 (insn_list 32 (nil))
    (expr_list:REG_DEAD (reg:DF 85)
        (expr_list:REG_EQUAL (smax:SF (reg:SF 78)
                (const_double:SF (mem/u/f:SF (symbol_ref/u:DI
("*$LC31")) 0) 0 [0x0] 0 [0x0] [0]))
            (nil))))
tabdef.f:30: Internal compiler error in extract_insn, at recog.c:2127

on this code:

      subroutine tabdef
      real xndegr
      integer nstart,nstop
      parameter (xndegr=100.,nstart=1316,nstop=37316)
      real estab,destab
      common/comtab/estab(nstart:nstop),destab(nstart:nstop)
      integer jk
      real zdiv,ztemp
      real esat,desdt,tt,zc2,zc4,zes
      real c1es,c2es,c2is,c3es,c4es,c4is
      parameter (
     ,    c1es=610.78,
     ,    c2es=17.269,
     ,    c2is=21.875,
     ,    c3es=273.16,
     ,    c4es=35.86,
     ,    c4is=7.66
     +)
      zc2(tt)=c2is + min(1.,max(0.,(tt-c3es+15)/15.))*( c2es-c2is )
      zc4(tt)=c4is + min(1.,max(0.,(tt-c3es+15)/15.))*( c4es-c4is )
      zes(tt)=zc2(tt)*(tt-c3es)/(tt-zc4(tt))
      esat(tt)=c1es*exp(zes(tt))
      desdt(tt)=c1es*exp(zes(tt))*zc2(tt)*(c3es-zc4(tt))/(tt-zc4(tt))**2
      zdiv = 1./xndegr
      do jk=nstart,nstop
         ztemp = float(jk)*zdiv
         estab(jk) = esat(ztemp)
         destab(jk) = desdt(ztemp)
      end do
      return
      end

Probably something to do with ifcvt.c and the min/max stuff, above.

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)