[GCC 4.8] Initial check-in of GCC 4.8.0

Change-Id: I0719d8a6d0f69b367a6ab6f10eb75622dbf12771

1 files changed, 33 insertions, 0 deletions

diff --git a/gcc-4.8/gcc/testsuite/gnat.dg/nested_return_test.adb b/gcc-4.8/gcc/testsuite/gnat.dg/nested_return_test.adb
new file mode 100644
index 000000000..bc9f043cf
--- /dev/null
+++ b/gcc-4.8/gcc/testsuite/gnat.dg/nested_return_test.adb
@@ -0,0 +1,33 @@
+-- { dg-do run }
+-- { dg-options "-gnata" }
+
+procedure Nested_Return_Test is
+   function H (X: integer) return access integer is
+      Local : aliased integer := (X+1);
+   begin 
+      case X is
+         when 3 =>
+            begin
+              return Result : access integer do
+                  Result := new integer '(27);
+                  begin
+                     for I in 1 .. 10 loop
+                       result.all := result.all + 10;
+                     end loop;
+                     return;
+                  end;
+              end return;
+            end;
+         when 5 =>
+            return Result: Access integer do
+               Result := New Integer'(X*X*X);
+            end return;
+         when others =>
+            return null;
+      end case;
+   end;
+begin
+   pragma Assert (H (3).all = 127);
+   pragma Assert (H (5).all = 125);
+   null;
+end Nested_Return_Test;