public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug ada/34509]  New: Bug box in expand_expr_real_1, at expr.c:6711 on legal program
@ 2007-12-17  9:51 ludovic at ludovic-brenta dot org
  2007-12-19 20:49 ` [Bug ada/34509] " sam at gcc dot gnu dot org
  0 siblings, 1 reply; 2+ messages in thread
From: ludovic at ludovic-brenta dot org @ 2007-12-17  9:51 UTC (permalink / raw)
  To: gcc-bugs

package pak1 is
   pragma elaborate_body;

   subtype myint is integer range 1..10;

   type T1(n: myint) is
   record
      s: string(1..n);
   end record;

   max: constant myint;
   pragma import(C, max);

   subtype T2 is T1 (max);

end pak1;

package body pak1 is

   function f1 return T2 is
      x1: T2;
   begin
      return x1;
   end f1;

   function f2 return T2 is
      x2: T2;
   begin
      return x2;
   end f2;

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 expand_expr_real_1, at expr.c:6711                                    |
| Error detected at s-secsta.ads:64:14                                     |

+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) in expand_expr_real_1, at expr.c:6930     |
| Error detected at s-secsta.ads:64:14                                     |


-- 
           Summary: Bug box in expand_expr_real_1, at expr.c:6711 on legal
                    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=34509


^ permalink raw reply	[flat|nested] 2+ messages in thread

* [Bug ada/34509] Bug box in expand_expr_real_1, at expr.c:6711 on legal program
  2007-12-17  9:51 [Bug ada/34509] New: Bug box in expand_expr_real_1, at expr.c:6711 on legal program ludovic at ludovic-brenta dot org
@ 2007-12-19 20:49 ` sam at gcc dot gnu dot org
  0 siblings, 0 replies; 2+ messages in thread
From: sam at gcc dot gnu dot org @ 2007-12-19 20:49 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #1 from sam at gcc dot gnu dot org  2007-12-19 20:49 -------
Already fixed in trunk.


-- 

sam at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.3.0


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


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2007-12-19 20:49 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-12-17  9:51 [Bug ada/34509] New: Bug box in expand_expr_real_1, at expr.c:6711 on legal program ludovic at ludovic-brenta dot org
2007-12-19 20:49 ` [Bug ada/34509] " sam at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).