[Bug ada/15257] New: Bug box in legal Ada2005 program in gcc 3.4 using -gnatX

[ludovic dot brenta at insalien dot org]

package pak1 is
        type T1 is null record;
    end pak1;

    limited with pak1;
    package Test_98 is
        procedure p(x : access pak1.T1);
    end Test_98;

gcc -c -gnatX test_98.ads
+===========================GNAT BUG DETECTED==============================+
| 3.4.0 (i686-pc-linux-gnu) Storage_Error stack overflow (or erroneous memory ac
cess)|
| Error detected at test_98.ads:4:5 |
| 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 in legal Ada2005 program in gcc 3.4 using -gnatX
           Product: gcc
           Version: 3.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic dot brenta at insalien 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


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