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

From-SVN: r138673

* gnat.dg/access_discr2.adb: New test.
From-SVN: r138673
3894140f · Arnaud Charlet · Arnaud Charlet · dce86910 · 3894140f · 3894140f
Commit 3894140f authored Aug 05, 2008 by Arnaud Charlet Committed by Arnaud Charlet Aug 05, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gnat.dg/access_discr2.adb
+10 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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

--- a/gcc/testsuite/gnat.dg/access_discr2.adb
+++ b/gcc/testsuite/gnat.dg/access_discr2.adb
+--  { 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;