diff options
author | Eric Botcazou <ebotcazou@adacore.com> | 2008-09-26 20:11:52 +0000 |
---|---|---|
committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-09-26 20:11:52 +0000 |
commit | bb3da4f27b9d7241a626695e80edc285561f2506 (patch) | |
tree | d07c6f8831a4d81fa09ec5f6ea14bfb44f9d7b87 /gcc/testsuite/gnat.dg | |
parent | 0da7a284ef2d91cc468145b88893c99e938d5be0 (diff) | |
download | gcc-bb3da4f27b9d7241a626695e80edc285561f2506.zip gcc-bb3da4f27b9d7241a626695e80edc285561f2506.tar.gz gcc-bb3da4f27b9d7241a626695e80edc285561f2506.tar.bz2 |
decl.c (gnat_to_gnu_entity): Cap the alignment promotion to that of ptr_mode instead of word_mode.
* decl.c (gnat_to_gnu_entity) <object>: Cap the alignment promotion
to that of ptr_mode instead of word_mode.
From-SVN: r140711
Diffstat (limited to 'gcc/testsuite/gnat.dg')
-rw-r--r-- | gcc/testsuite/gnat.dg/specs/static_initializer3.ads | 2 | ||||
-rw-r--r-- | gcc/testsuite/gnat.dg/specs/static_initializer4.ads | 13 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/static_initializer3.ads b/gcc/testsuite/gnat.dg/specs/static_initializer3.ads index 42994f2..2dc8be1 100644 --- a/gcc/testsuite/gnat.dg/specs/static_initializer3.ads +++ b/gcc/testsuite/gnat.dg/specs/static_initializer3.ads @@ -1,3 +1,5 @@ +-- { dg-do compile } + with Unchecked_Conversion; package Static_Initializer3 is diff --git a/gcc/testsuite/gnat.dg/specs/static_initializer4.ads b/gcc/testsuite/gnat.dg/specs/static_initializer4.ads new file mode 100644 index 0000000..a1a5e84 --- /dev/null +++ b/gcc/testsuite/gnat.dg/specs/static_initializer4.ads @@ -0,0 +1,13 @@ +-- { dg-do compile } + +package Static_Initializer4 is + + type R is tagged record + b : Boolean; + end record; + + type NR is new R with null record; + + C : NR := (b => True); + +end Static_Initializer4; |