diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/alignment8.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/alignment8.adb | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/alignment8.adb b/gcc/testsuite/gnat.dg/alignment8.adb new file mode 100644 index 000000000..06136c36e --- /dev/null +++ b/gcc/testsuite/gnat.dg/alignment8.adb @@ -0,0 +1,24 @@ +-- { dg-do run } + +with System; + +procedure Alignment8 is + + type R is record + I : Integer; + F : Long_Long_Integer; + end record; + for R'Alignment use 8; + + procedure Q (A : System.Address) is + F : Long_Long_Integer; + for F'Address use A; + begin + F := 0; + end; + + V : R; + +begin + Q (V.F'Address); +end; |