1 files changed, 22 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/volatile1.ads b/gcc-4.9/gcc/testsuite/gnat.dg/volatile1.ads
new file mode 100644
index 000000000..62bf17a59
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/volatile1.ads
@@ -0,0 +1,22 @@
+package volatile1 is
+
+   type Command is (Nothing, Get);
+
+   type Data is
+      record
+         Time : Duration;
+      end record;
+
+   type Data_Array is array (Integer range <>) of Data;
+
+   type Command_Data (Kind : Command; Length : Integer) is
+      record
+         case Kind is
+            when Nothing =>
+               null;
+            when Get =>
+               Data : Data_Array (1 .. Length);
+         end case;
+      end record;
+
+end;