diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/volatile2.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/volatile2.adb | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/volatile2.adb b/gcc/testsuite/gnat.dg/volatile2.adb new file mode 100644 index 000000000..57df26e7a --- /dev/null +++ b/gcc/testsuite/gnat.dg/volatile2.adb @@ -0,0 +1,22 @@ +-- { dg-do compile } +-- { dg-options "-gnatws" } + +package body volatile2 is + + procedure Copy is + R : Result; + M : Integer; + subtype Get_Data is Command_Data (Get, R.Data'Last); + begin + declare + G : Get_Data; + for G'Address use M'Address; + begin + for I in 1 .. R.Data'Last loop + G.Data (I) := (Time => R.Data (I).Time); + end loop; + end; + end; + +end volatile2; + |