[Bug ada/13471] New: Bug Box: Storage_Error stack overflow(?), presence of incorrect system.ads causes loop

["bauhaus at futureapps dot de" <gcc-bugzilla at gcc dot gnu dot org>]

When somewhere in the search path other than the Ada library
a unit called "system.ads" exists, for example an empty file,
an attempt to compile something will result massive
repetitions of the error message
"fatal error, system.ads not formatted correctly"
which is finally followed by a bug box.

(With GNAT 3.15p, the same message is given once, followed by
compilation abandoned (which I think is fine))

Procedure for reproducing:
mkdir d
cd d
touch system.ads
touch foo.ads
gcc -c foo.ads

bash-2.05a$  uname -a
Linux sonnenregen 2.4.19 #1 SMP Wed Jun 18 02:54:48 CEST 2003 i686 unknown

bash-2.05a$ gcc -c -v foo.ads
Reading specs from /opt/GCC/34/lib/gcc/i686-pc-linux-gnu/3.4/specs
Configured with: ../gcc/configure --enable-languages=c,ada --prefix=/opt/GCC/34 
--enable-checking : (reconfigured) 
Thread model: posix
gcc version 3.4 20031217 (experimental)
 /opt/GCC/34/libexec/gcc/i686-pc-linux-gnu/3.4/gnat1 -quiet -dumpbase bla.ads -m
tune=pentiumpro bla.ads -o /tmp/ccDH2VQd.s
fatal error, system.ads not formatted correctly
... [about 4400 times]
fatal error, system.ads not formatted correctly
fatal error, system.ads not formatted correctly
fatal error, system.ads not formatted correctly
+===========================GNAT BUG DETECTED==============================+
| 3.4 20031217 (experimental) (i686-pc-linux-gnu) Storage_Error stack overflow
(or erroneous memory access)|
| Error detected at system.ads:1:1                                         |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            |
| Include the entire contents of this bug box in the report.               |
| Include the exact gcc or gnatmake command that you entered.              |
| Also include sources listed below in gnatchop format                     |
| (concatenated together with no headers between files).                   |
+==========================================================================+

-- 
           Summary: Bug Box: Storage_Error stack overflow(?), presence of
                    incorrect system.ads causes loop
           Product: gcc
           Version: 3.4.0
            Status: UNCONFIRMED
          Severity: minor
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: bauhaus at futureapps dot de
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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