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;
+