diff options
| author | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-07 09:51:46 +0000 |
|---|---|---|
| committer | hainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-07 09:51:46 +0000 |
| commit | 9c46478516fe5b88f7e5b221e3186762ef8dda3d (patch) | |
| tree | 2d77e4943895345d425dd82dd3ecbe35e331c32a /gcc/testsuite/gnat.dg/max_align.adb | |
| parent | 823d7f6bab623bc157396148906c1e1bbfbceacf (diff) | |
| download | gcc-9c46478516fe5b88f7e5b221e3186762ef8dda3d.tar.gz | |
2007-11-07 Olivier Hainque <hainque@adacore.com>
* decl.c (make_aligning_type): Set the mode of the RECORD_TYPE we
craft and expand comment.
testsuite/
* gnat.dg/max_align.adb: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129958 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/max_align.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/max_align.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/max_align.adb b/gcc/testsuite/gnat.dg/max_align.adb new file mode 100644 index 00000000000..702bbaca449 --- /dev/null +++ b/gcc/testsuite/gnat.dg/max_align.adb @@ -0,0 +1,15 @@ +-- { dg-do compile } + +procedure Max_Align is + type Block is record + X : Integer; + end record; + for Block'Alignment use Standard'Maximum_Alignment; + + type Block_Access is access Block; + Ptr : Block_Access := new Block; +begin + null; +end; + + |