diff options
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gnat.dg/elab1.ads')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gnat.dg/elab1.ads | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/gcc-4.8/gcc/testsuite/gnat.dg/elab1.ads b/gcc-4.8/gcc/testsuite/gnat.dg/elab1.ads deleted file mode 100644 index 2d656ea7f..000000000 --- a/gcc-4.8/gcc/testsuite/gnat.dg/elab1.ads +++ /dev/null @@ -1,23 +0,0 @@ -package elab1 is - - -- the forward declaration is the trigger - type Stream; - - type Stream_Ptr is access Stream; - - type Stream is array (Positive range <>) of Character; - - function Get_Size (S : Stream_Ptr) return Natural; - - type Rec (Size : Natural) is - record - B : Boolean; - end record; - - My_Desc : constant Stream_Ptr := new Stream'(1 => ' '); - - My_Size : constant Natural := Get_Size (My_Desc); - - subtype My_Rec is Rec (My_Size); - -end; |