diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/debug1.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/debug1.ads | 21 |
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 000000000..3ce148cf7 --- /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; |