[Bug ada/15305] New: Bug box in Gigi, code=505

["ludovic dot brenta at insalien dot org" <gcc-bugzilla at gcc dot gnu dot org>]

with unchecked_conversion;
procedure Test_100 is
   package pak1 is
      type T2 is private;

      function "=" (left, right : T2) return Boolean;
   private

      type T3 is access integer;
      type T2 is new T3;

      function convert is new unchecked_conversion (integer, T3);

   end pak1;

   package body pak1 is

      function "=" (left, right : T2) return Boolean is
      begin
         return false;
      end "=";

   end pak1;

   generic
      type T1 is private;
      x1: in T1;
      x2: in out T1;
   package pak2 is
      b: boolean := x1 = x2;
   end pak2;

   y1: pak1.T2;
   y2: pak1.T2;
   package new_pak2 is new pak2 (pak1.T2, y1, y2);
begin
   null;
end Test_100;


gcc -c -x ada test_100.ada
+===========================GNAT BUG DETECTED==============================+
| 3.5.0 20040327 (experimental) (i686-pc-linux-gnu) Gigi abort, Code=505   |
| Error detected at test_100.ada:30:26 [test_100.ada:35:4]                 |
| 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 Gigi, code=505
           Product: gcc
           Version: 3.5.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=15305