[Bug ada/51691] New: Cast of an array with type generates a "please file bug" message (See below)

[Bug ada/51691] New: Cast of an array with type generates a "please file bug" message (See below)

[alexis at m2osw dot com]

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

             Bug #: 51691
           Summary: Cast of an array with type generates a "please file
                    bug" message (See below)
    Classification: Unclassified
           Product: gcc
           Version: 4.4.5
            Status: UNCONFIRMED
          Severity: minor
          Priority: P3
         Component: ada
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: alexis@m2osw.com


Created attachment 26193
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=26193
Case Folding implementation for my own Ada compiler

-------------------------------------------------------------------
prompt> gnatmake case_folding

gcc-4.4 -c case_folding.adb
+===========================GNAT BUG DETECTED==============================+
| 4.4.5 (x86_64-pc-linux-gnu) Assert_Failure sinfo.adb:880                 |
| Error detected at case_folding.adb:401:32                                |
| Please submit a bug report; see http://gcc.gnu.org/bugs.html.            |
| Use a subject line meaningful to you and us to track the bug.            |
| Include the entire contents of this bug box in the report.               |
| Include the exact gcc-4.4 or gnatmake command that you entered.          |
| Also include sources listed below in gnatchop format                     |
| (concatenated together with no headers between files).                   |
+==========================================================================+

Please include these source files with error report
Note that list may not be accurate in some cases,
so please double check that the problem can still
be reproduced with the set of files listed.

case_folding.adb









case_folding.adb:401:53: missing ")"
compilation abandoned
gnatmake: "case_folding.adb" compilation error
-------------------------------------------------------------------

As I type fast, the error came from this line:

  output_line(1 .. indent) := string(1 .. indent => ' ');

which includes an invalid cast, the proper line should be (without "string"):

  output_line(1 .. indent) := (1 .. indent => ' ');

There are still problems on line 403 which I left in case the bug would not be
reported without that other error (unlikely though.)

Just in case, I'm on Ubuntu 11.04. I use the stock version of Ada.

-------------------------------------------------------------------
More info about my project can be found here:
http://aada.m2osw.com/compiler