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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139311 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ac215eb..6144a4c 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;