[Bug ada/34287] Simple Ada bug [Barnes' Silly]

[sam at gcc dot gnu dot org]

------- Comment #1 from sam at gcc dot gnu dot org  2007-12-03 16:02 -------
Subject: Bug 34287

Author: sam
Date: Mon Dec  3 16:01:57 2007
New Revision: 130582

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130582
Log:
2007-12-03  Robert Dewar <dewar@adacore.com>
            Samuel Tardieu  <sam@rfc1149.net>

        gcc/ada/
        PR ada/34287
        * sem_util.adb (Safe_To_Capture_Value): Do not capture values
        of variables declared in a library-level package.

        gcc/testsuite/gnat.dg/
        PR ada/34287
        * check_elaboration_code.adb: New test.

        * bug_elaboration_code.ads, bug_elaboration_code.adb: New support
        files.

Added:
    trunk/gcc/testsuite/gnat.dg/bug_elaboration_code.adb
    trunk/gcc/testsuite/gnat.dg/bug_elaboration_code.ads
    trunk/gcc/testsuite/gnat.dg/check_elaboration_code.adb
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/sem_util.adb
    trunk/gcc/testsuite/ChangeLog


-- 


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