Bug with g77 and -mieee on Alpha Linux

[martin dot kahlert at provi dot de]

Hi,
There seems to be an error on Linux Alpha with egcs-19990629
(gcc-2.95 prerelease:)

Can anyone confirm this bug:
t.f:
      SUBROUTINE PRT(X)
      REAL*8 X
      WRITE(*,*) X
      RETURN
      END

h.c:
int main(int argc,const char *argv[])
{
 union
    {
     int i[2];
     double d;
    } x;

 x.i[0]=0xd3a34200;
 x.i[1]=0x6;

 prt_(&x);

 return 0;
}

gcc -c -mieee -c h.c
g77 -c -mieee -c t.f
g77 -o t t.o h.o
./h
Floating point exception

I am sorry that i cannot provide a real world test, i got these
number from a big simulation tool and it was most easily to 
put into g77 this way.

Perhaps i have done something wrong, but i thought, -mieee should 
prevent these FPE's from occuring?

Thanks, Martin.