1 files changed, 21 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gnat.dg/noreturn4.adb b/gcc-4.9/gcc/testsuite/gnat.dg/noreturn4.adb
new file mode 100644
index 000000000..7225f6cb4
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gnat.dg/noreturn4.adb
@@ -0,0 +1,21 @@
+-- { dg-do compile }
+
+with Noreturn4_Pkg; use Noreturn4_Pkg;
+
+package body Noreturn4 is
+
+  procedure P1 (Msg : String) is
+  begin
+     P1 (Msg, 0);
+  end;
+  procedure P1 (Msg : String; Val : Integer) is
+  begin
+     Fatal_Error (Value (It));
+  end;
+
+  procedure Fatal_Error (X : Integer) is
+  begin
+     raise PRogram_Error;
+  end;
+
+end Noreturn4;