Ada bootstrap failure on ia64

[Richard Kenner]

    I don't see how that's possible; "Program_Error sinput.adb:397" is
    Get_Source_File_Index failing to find an entry in its table.

This can happen when an error is posted on a predefined type (such as Float)
or on a constant representing a bound of that type.