diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-23 18:55:50 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-23 18:55:50 +0000 |
| commit | f61f63980cc1a89af15fc90ddf2c09b98418fc2f (patch) | |
| tree | c59b1845ae54b4bff9e737ce6ec358e0e146715e /gcc/testsuite/gnat.dg | |
| parent | 881dac498bf5cb7e7a19d03754b9c9d1e84d669c (diff) | |
| download | gcc-f61f63980cc1a89af15fc90ddf2c09b98418fc2f.tar.gz | |
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Variable>: Pass the list
of attributes when building the corresponding variable of a constant.
* gcc-interface/utils.c (create_var_decl_1): Do not process attributes
for constants.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154458 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg')
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/weak1.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/weak1.ads b/gcc/testsuite/gnat.dg/specs/weak1.ads new file mode 100644 index 00000000000..82cddc09ac2 --- /dev/null +++ b/gcc/testsuite/gnat.dg/specs/weak1.ads @@ -0,0 +1,7 @@ +package Weak1 is + + Myconst : constant Integer := 1234; + pragma Export (C, Myconst, "myconst"); + pragma Weak_External (Myconst); + +end Weak1; |