g77 bug on DigitalUnix when using -mieee option

[asim kepkep]

   I am having trouble compiling code with certain intrinsic
function calls. A simple program demonstating the problem is

          program bug
          real x,y
          x=1.0
          read (*,*) y
          d=max(x,y)
          write (*,*) x,y,d
          stop
          end

when I try to compile this with the following command 
  g77 -O0 -mieee -c bug.F 

 I get the following error message: 
g77 -O0 -mieee -c bug.F
bug.F: In program `bug':
bug.F:7: internal error--unrecognizable insn:
(insn 39 38 40 (set (reg:DF 74)
        (le:DF (float_extend:DF (reg:SF 72))
            (float_extend:DF (reg:SF 73)))) -1 (nil)
    (nil))  
g77: Internal compiler error: program f771 got fatal signal 6
 

The computer is a DEC Alpha 533LX running DUNIX4.0 and I have 
g77 from egcs-1.0.3a. g77 -v returns: 

Reading specs from ??????????/lib/gcc-lib/alphaev56-dec-osf4.0d/esgcc version
egcs-2.90.29 980515  (egcs-1.0.3 release) 

 I have been having this problem with a large code and finally been able to
 track  the problem down to this type of calls. I could look into other 
specific intrinsic function calls causing this problem if that is necessary.


Asim Kepkep

---------------------------------------------------------------------------
Asim Kepkep 
University of Illinois at Urbana-Champaign
kepkep@students.uiuc.edu