[Bug fortran/17175] set_exponent breaks with integer*8 exponent

[paulthomas2 at wanadoo dot fr]

------- Additional Comments From paulthomas2 at wanadoo dot fr  2004-12-10 
13:35 -------
You have fixed this one, haven't you? cvs 20041205 runs it fine.

However, in testing, I found another nasty:

y = 1/2 + 1/8
!y= 0.125 + 0.5                     !!works OK
x = set_exponent (y, 5_4)
print *,x
x = set_exponent (y, 5_8)
print *,x
end

gives 

$ ./a
   0.000000
   0.000000

instead of 

   20.00000
   20.00000


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17175