[Bug ada/37110] New: Assert_Failure at atree.adb:886 caused by legal prefixed notation

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

Subversion revision 127471 in GPS (http://libre.adacore.com/gps) introduced an
internal compiler error in codefix-text_manager.adb:

gcc-4.3 -c -g -O2 -gnatafno -gnatVa -I- -gnatA
/home/lbrenta/src/debian/ram/gnat-gps-4.3~2008.08.09/codefix/src/codefix-text_manager.adb
+===========================GNAT BUG DETECTED==============================+
| 4.3.1 (x86_64-pc-linux-gnu) Assert_Failure atree.adb:886                 |
| Error detected at codefix-text_manager.adb:4145:34                       |

The source line in question is marked below:

   procedure Execute
     (This         : Add_Line_Cmd;
      Current_Text : in out Text_Navigator_Abstr'Class;
      Success      : in out Boolean)
   is
      Cursor : constant File_Cursor'Class :=
        Current_Text.Get_Current_Cursor (This.Position.all);
   begin
      Success := True;
      Current_Text.Get_File
        (This.Position.File_Name).Add_Line (Cursor, This.Line.all); -- line
4145
   end Execute;

Removing the prefixed notation as follows avoids the ICE:

      Get_File
        (Current_Text, This.Position.File_Name).Add_Line (Cursor,
This.Line.all);


-- 
           Summary: Assert_Failure at atree.adb:886 caused by legal prefixed
                    notation
           Product: gcc
           Version: 4.3.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=37110