1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/alignment1.adb b/gcc/testsuite/gnat.dg/alignment1.adb
new file mode 100644
index 000000000..169e11c41
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/alignment1.adb
@@ -0,0 +1,16 @@
+-- { dg-do run }
+-- { dg-options "-gnatws" }
+
+procedure alignment1 is
+
+  type My_Integer is record
+    Element : Integer;
+  end record;
+
+  F : My_Integer;
+
+begin
+  if F'Alignment /= F.Element'Alignment then
+    raise Program_Error;
+  end if;
+end;