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

From-SVN: r139311

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ac215ebf7f4c95a6fe662dc2017ddb9c6b878d70..6144a4cb78d2357bf29bb696a6412d5c3d237123 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-20  Arnaud Charlet  <charlet@adacore.com>
+
+       * gnat.dg/div_no_warning.adb: New test.
+
 2008-08-20  H.J. Lu  <hongjiu.lu@intel.com>
 
        PR target/37169

diff --git a/gcc/testsuite/gnat.dg/div_no_warning.adb b/gcc/testsuite/gnat.dg/div_no_warning.adb
new file mode 100644 (file)
index 0000000..5b65263
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/div_no_warning.adb
@@ -0,0 +1,15 @@
+--  { dg-do compile }
+
+procedure div_no_warning is
+   Flag : constant Boolean := False;
+   Var : Boolean := True; 
+   function F return Boolean is
+   begin
+      return Var;
+   end F;
+   Int : Integer := 0;
+begin
+   if Flag and then F then
+      Int := Int / 0;
+   end if;
+end div_no_warning;