Ada broken on i686-linux (some more progress)

[Richard Kenner]

    s-fatlfl.o(.bss+0x0): In function `system.fat_lflt.fat_long_float.scaling':
    /home/guerby/work/gcc/build/build-20040913T200122/gcc/ada/rts/s-fatgen.adb:540: multiple definition of `r'
    s-fatflt.o(.bss+0x0):/home/guerby/work/gcc/build/build-20040913T200122/gcc/ada/rts/s-fatgen.adb:540: first defined here

I'm assuming this is a problem in the Ada front end, though I haven't
gotten a chance to look at it yet.