1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/vfa1.ads b/gcc/testsuite/gnat.dg/specs/vfa1.ads
new file mode 100644
index 00000000000..cf918c20a03
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/vfa1.ads
@@ -0,0 +1,14 @@
+-- { dg-do compile }
+-- { dg-options "-g" }
+
+package VFA1 is
+
+  type Rec is record
+    A : Short_Integer;
+    B : Short_Integer;
+  end record;
+
+  type Rec_VFA is new Rec;
+  pragma Volatile_Full_Access (Rec_VFA);
+
+end VFA1;