[Bug ada/15402] New: [3.15p/3.4 regression] Bug box in verify_local_live_at_start with -O2

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

package pak1 is
       pragma elaborate_body;
       f3 : float := 1.0;
    end pak1;

    with pak1;
    package body pak1 is
       f4 : float;

       procedure proc4 is
          type T1(b : boolean := false) is record
              case b is
                  when false => f1 : float;
                  when true  => f2 : float;
              end case;
          end record;
          x: T1;
       begin
          x.f1 := f3;
          f4 := f3;
       end proc4;
    end pak1;


gcc -c -O2 pak1.adb
+===========================GNAT BUG DETECTED==============================+
| 3.4.0 (i686-pc-linux-gnu) in verify_local_live_at_start, at flow.c:572   |
| Error detected at pak1.adb:17:8                                          |
| 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: [3.15p/3.4 regression] Bug box in
                    verify_local_live_at_start with -O2
           Product: gcc
           Version: 3.4.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=15402