aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb
diff options
context:
space:
mode:
authorDan Albert <danalbert@google.com>2015-10-13 16:28:19 -0700
committerDan Albert <danalbert@google.com>2015-10-13 16:28:19 -0700
commita8c075f72b231c37823661ba0d7d082a21cd39d9 (patch)
tree395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb
parent5aff2e0142aca13849b4e51de503e71d5010efa6 (diff)
downloadtoolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.gz
toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.bz2
toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.zip
Remove gcc-4.8.
Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb')
-rw-r--r--gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb50
1 files changed, 0 insertions, 50 deletions
diff --git a/gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb b/gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb
deleted file mode 100644
index 256b3951b..000000000
--- a/gcc-4.8/gcc/testsuite/gnat.dg/aggr1.adb
+++ /dev/null
@@ -1,50 +0,0 @@
--- { dg-do run }
-
-procedure aggr1 is
- package Coord is
- type T is private;
- private
- type T is record
- A, B, C : Float;
- end record;
- end Coord;
---
- generic
- type T is private;
- package gen is
- type Rec (Discr : Boolean := True) is record
- needs_update : Boolean;
- case Discr is
- when True => null;
- when False => Value : T;
- end case;
- end record;
- end gen;
---
- subtype Graph_Range is integer range 1..1665;
- type arr is array (Graph_Range) of Coord.T;
---
- package Inst is new Gen (arr);
---
- subtype Index is integer range 1 .. 1;
---
- type Graph_Node (Active : Boolean := False) is
- record
- case Active is
- when True =>
- Comp1 : Inst.Rec;
- Comp2 : Inst.Rec;
- Comp3 : Inst.Rec;
- when False =>
- Needs_Update : Boolean;
- end case;
- end record;
---
- Null_Graph_Node : constant Graph_Node := (False, True);
- type Graph_Table_T is array (Index) of Graph_Node;
---
- Graph_Table : Graph_Table_T := (others => (Null_Graph_Node));
- Graph_Table_1 : Graph_Table_T := (others => (False, True));
-begin
- null;
-end;