[Bug ada/58128] Problem using NAME (STANDARD_INPUT) in gcc-4.7.2

[ExtraLeveLInSoftware at ntlworld dot com]

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

--- Comment #2 from Ellis N. Thomas <ExtraLeveLInSoftware at ntlworld dot com> ---
    Further Information about the Exception

    Added extra "others" handler for Unexpected exceptions to TryStdIP3.
Compiled:
bash> gnatmake TryStdIP3.ada 
gcc -c -x ada trystdip3.ada
gnatbind -x trystdip3.ali
gnatlink trystdip3.ali

    Ran:
bash> trystdip3
TryStdIP3 from SiRiL Issue 0.22 21-Apr-1989 
Copyright (c) 2013 E.N. Thomas
Started at : 12:45:57  14/ 8/13
Try to get NAME (STANDARD_INPUT)
Try to open CommandFile using: <*stdin>

raised PROGRAM_ERROR : unhandled signal

    So the "others" handler has failed to handle this PROGRAM_ERROR!
Although it is reported as an exception, it is not able to be handled in the
normal Ada way, so this seriously compromises the ability to work around this
error.

    Consequently, a work-round such as a new version of s-fileio.adb
(system__file_io__open) and/or a-textio.adb (ada__text_io__open) would be
appreciated.

E.N. Thomas/14-Aug-2013