From: uros Date: Fri, 7 Dec 2012 08:14:50 +0000 (+0000) Subject: * gnat.dg/stack_check3.ad[sb]: Delete in the root directory. X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=c3a60c4b43809a15bf0a82821d1e316ab711e387;hp=bd5def103d707e28e48e8b8c8a3ce7f4ed277439 * gnat.dg/stack_check3.ad[sb]: Delete in the root directory. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@194294 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/testsuite/stack_check3.adb b/gcc/testsuite/stack_check3.adb deleted file mode 100644 index 734ed422733..00000000000 --- a/gcc/testsuite/stack_check3.adb +++ /dev/null @@ -1,36 +0,0 @@ --- { dg-do compile } --- { dg-options "-O -fstack-check" } - -package body Stack_Check3 is - - type Int_Arr is array (1 .. 34) of Integer; - - type Rec (D : Boolean := False) is - record - case D is - when True => IA : Int_Arr; - when False => null; - end case; - end record; - - type Rec_Arr is array (1 .. 256) of Rec; - - protected Prot_Arr is - procedure Reset; - private - A : Rec_Arr; - end Prot_Arr; - - protected body Prot_Arr is - procedure Reset is - begin - A := (others => (D => False)); - end Reset; - end Prot_Arr; - - procedure Reset is - begin - Prot_Arr.Reset; - end Reset; - -end Stack_Check3; diff --git a/gcc/testsuite/stack_check3.ads b/gcc/testsuite/stack_check3.ads deleted file mode 100644 index 869c418839e..00000000000 --- a/gcc/testsuite/stack_check3.ads +++ /dev/null @@ -1,5 +0,0 @@ -package Stack_Check3 is - - procedure Reset; - -end Stack_Check3;