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