* gnat.dg/access_discr2.adb: New test.

From-SVN: r138673

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0041134..393a8d2 100644 (file)
--- 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 (file)
index 0000000..ceeeb46
--- /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;