New test cases.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123612 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 21 insertions, 0 deletions

diff --git a/gcc/testsuite/gnat.dg/debug1.ads b/gcc/testsuite/gnat.dg/debug1.ads
new file mode 100644
index 00000000000..3ce148cf7b3
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/debug1.ads
@@ -0,0 +1,21 @@
+package debug1 is
+  
+  type Vector is array (Natural range <>) of Natural;
+  type Vector_Access is access Vector;
+        
+  type Data_Line is record
+    Length : Vector (1 .. 1);
+    Line   : Vector_Access;
+  end record;
+  
+  type Data_Block is array (1 .. 5) of Data_Line;
+  type Data_Block_Access is access Data_Block;
+        
+  type Vector_Ptr is access Vector;
+        
+  type Meta_Data is record
+    Vector_View : Vector_Ptr;
+    Block_View  : Data_Block_Access;
+  end record;
+        
+end;