From 3894140f5b2e9072bb8ae6b51277ad67b7f3bda1 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 5 Aug 2008 08:21:05 +0000
Subject: [PATCH] * gnat.dg/access_discr2.adb: New test.

From-SVN: r138673
---
 gcc/testsuite/ChangeLog                 |  4 ++++
 gcc/testsuite/gnat.dg/access_discr2.adb | 10 ++++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 gcc/testsuite/gnat.dg/access_discr2.adb

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0041134e91b..393a8d23091 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-04  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/access_discr2.adb: New test.
+
 2008-08-04  Richard Guenther  <rguenther@suse.de>
 
 	PR middle-end/36691
diff --git a/gcc/testsuite/gnat.dg/access_discr2.adb b/gcc/testsuite/gnat.dg/access_discr2.adb
new file mode 100644
index 00000000000..ceeeb464535
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/access_discr2.adb
@@ -0,0 +1,10 @@
+--  { dg-do run }
+
+procedure access_discr2 is
+   type X (I : not null access Integer) is tagged null record;
+   
+   I : aliased Integer := 8;
+   Y : X (I'Access);
+begin
+   null;
+end access_discr2;
-- 
2.30.2