[Bug ada/34347] New: Bug box in gnat_to_gnu_entity, at ada/decl.c:231 in legal Ada 2005 program

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

package Pak1 is

   pragma Elaborate_Body;

   type T1 is abstract tagged null record;

   function F1 (X1: T1) return access Integer is abstract;

end Pak1;

package body Pak1 is

   procedure P2 (X2: T1) is
      I : Integer;
   begin
      I := F1(T1'Class(X2)).all; -- line 6
   end P2;

end Pak1;

gnatmake -gnat05 pak1
gcc-4.1 -c -gnat05 pak1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu) GCC
error:|
| in gnat_to_gnu_entity, at ada/decl.c:231                                 |
| Error detected at pak1.adb:6:12                                          |

gcc -c -gnat05 pak1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) in gnat_to_gnu_entity, at ada/decl.c:230  |
| Error detected at pak1.adb:6:12                                          |


-- 
           Summary: Bug box in gnat_to_gnu_entity, at ada/decl.c:231 in
                    legal Ada 2005 program
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic at ludovic-brenta dot org


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