set_in_pproc.adb: New test.

	* gnat.dg/set_in_pproc.adb: New test.
	* gnat.dg/modular2.adb: New test.

From-SVN: r135910

gcc/testsuite/ChangeLog

+2008-05-26  Arnaud Charlet  <charlet@adacore.com>
+
+	* gnat.dg/set_in_pproc.adb: New test.
+	* gnat.dg/modular2.adb: New test.
+
 2008-05-25  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/trampoline1.adb: New test.

gcc/testsuite/gnat.dg/modular2.adb

+--  { dg-do run }
+
+procedure modular2 is
+   type x is mod 2 ** 64;
+   r : x := x'last;
+begin
+   r := r + 1;
+end;

gcc/testsuite/gnat.dg/set_in_pproc.adb

+--  { dg-do compile }
+
+with Ada.Containers.Ordered_Sets;
+procedure Set_In_Pproc is
+
+   protected type Ptype is
+      procedure Pproc;
+   end;
+   
+   protected body Ptype is
+      procedure Pproc is
+         package Sets is
+            new Ada.Containers.Ordered_Sets (Element_Type => Integer);
+      begin
+         null;
+      end;
+   end; 
+begin   
+   null;
+end;