New test.

From-SVN: r150825

gcc/testsuite/ChangeLog

+2009-08-17  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/itype.ad[sb]: New test.
+
 2009-08-16  Adam Nemet  <anemet@caviumnetworks.com>
 
 	* gcc.target/mips/mips.exp: Add terminology section to comment

gcc/testsuite/gnat.dg/itype.adb

+package body itype is
+   function G return not null access constant T is
+      X : aliased T;
+   
+   begin
+      return X'Unchecked_Access;
+   end G;
+end itype;

gcc/testsuite/gnat.dg/itype.ads

+package itype is
+   generic
+      type T is private;
+   function G return not null access constant T;
+end itype;