git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@194294
138bc75d-0d04-0410-961f-
82ee72b054a4
+++ /dev/null
--- { 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;
+++ /dev/null
-package Stack_Check3 is
-
- procedure Reset;
-
-end Stack_Check3;