[Bug ada/11581] New: gnat1 segfaults if it does receive any arguments

["steven at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

PLEASE REPLY TO gcc-bugzilla@gcc.gnu.org ONLY, *NOT* gcc-bugs@gcc.gnu.org.

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

           Summary: gnat1 segfaults if it does receive any arguments
           Product: gcc
           Version: 3.4
            Status: UNCONFIRMED
          Severity: minor
          Priority: P1
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: steven at gcc dot gnu dot org
                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

Freshly bootstrapped:

[steven@steven gcc]$ ./gnat1 --version
GNU Ada version 3.4 20030718 (experimental) (i686-pc-linux-gnu)
        compiled by GNU C version 3.4 20030718 (experimental).
GGC heuristics: --param ggc-min-expand=47 --param ggc-min-heapsize=31916
[steven@steven gcc]$ ./gnat1
Segmentation fault
[steven@steven gcc]$ 

[steven@steven gcc]$ /usr/lib/gcc-lib/i386-redhat-linux/3.2.2/gnat1
Usage: gnat1 switches sfile
 
  sfile     Source file name

---- 8< 8< 8< huuuuuuge snip with all flags and options ----
  -gnatz    Distribution stub generation (r/s for receiver/sender stubs)
  -gnatZ    Use zero cost exception handling
  -gnat83   Enforce Ada 83 restrictions
 
gnat1: you must provide one source file

So technically this is a regression.