From 2f62e83f53c8775c6d9f0532cacbfe6e3f905ca5 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 31 Jul 2008 12:31:12 +0000
Subject: [PATCH] * gnat.dg/missing_acc_check.adb: New test.

From-SVN: r138389
---
 gcc/testsuite/ChangeLog                     |  4 +++
 gcc/testsuite/gnat.dg/missing_acc_check.adb | 39 +++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 gcc/testsuite/gnat.dg/missing_acc_check.adb

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 19000131f6e7..d79fd14c9ed6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-07-31  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/missing_acc_check.adb: New test.
+
 2008-07-31  Richard Guenther  <rguenther@suse.de>
 
 	* gcc.dg/uninit-1-O0.c: New testcase.
diff --git a/gcc/testsuite/gnat.dg/missing_acc_check.adb b/gcc/testsuite/gnat.dg/missing_acc_check.adb
new file mode 100644
index 000000000000..1c2d9cf502e3
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/missing_acc_check.adb
@@ -0,0 +1,39 @@
+--  { dg-do run }
+
+procedure Missing_Acc_Check is
+   
+   Test_Failed : Exception;
+   
+   type Int_Access is access all Integer;
+   
+   Save : Int_Access := null;
+   
+   type Int_Rec is record
+      Int : aliased Integer;
+   end record;
+   
+   type Ltd_Rec (IR_Acc : access Int_Rec) is limited null record;
+   
+   function Pass_Rec (IR_Acc : access Int_Rec) return Int_Access is
+   begin
+      return IR_Acc.Int'Access;  -- Accessibility check here
+   end Pass_Rec;
+   
+   procedure Proc is
+      IR : aliased Int_Rec;
+      LR : Ltd_Rec (IR'Access);
+   begin
+      Save := Pass_Rec (LR.IR_Acc);  -- Must raise Program_Error;
+
+      if Save /= null then
+         raise Test_Failed;
+      end if;
+   
+   exception
+      when Program_Error =>
+         null;
+   end Proc;
+
+begin
+   Proc;
+end Missing_Acc_Check;
-- 
2.47.2