From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 26 Mar 2005 18:37:15 +0000 (+0000)
Subject: gfortran.dg/underflow.f90: New test.
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=ac7ceb7198461c406c3608466754be5c23c9629a

gfortran.dg/underflow.f90: New test.
gfortran.dg/g77/20030326-1.f:  Fix illegal code.


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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 03e5d9b3a67..e5191626a65 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-26  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/underflow.f90:  New test.
+	* gfortran.dg/g77/20030326-1.f: Fix illegal code.
+
 2005-03-25  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* gcc.dg/nonnull-3.c: Also test __builtin_strndup.
diff --git a/gcc/testsuite/gfortran.dg/g77/20030326-1.f b/gcc/testsuite/gfortran.dg/g77/20030326-1.f
index 2f44a405872..dc4ff43cd47 100644
--- a/gcc/testsuite/gfortran.dg/g77/20030326-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/20030326-1.f
@@ -1,15 +1,10 @@
-C { dg-do compile }
-C      PR fortran/9793
-C      larson@w6yx.stanford.edu
-C
-       integer a, b, c
-
-       c = -2147483648 / -1 ! { dg-warning "outside symmetric range" "" }
-
-       a = 1
-       b = 0
-       c = a / b
-
-       print *, c
-
+! { dg-do compile }
+! { dg-options -pedantic }
+!      PR fortran/9793
+!      larson@w6yx.stanford.edu
+!
+! For gfortran, see PR 13490
+!
+       integer c
+       c = -2147483648 / (-1) ! { dg-warning "outside symmetric range" "" }
        end
diff --git a/gcc/testsuite/gfortran.dg/underflow.f90 b/gcc/testsuite/gfortran.dg/underflow.f90
new file mode 100644
index 00000000000..0c1018b593b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/underflow.f90
@@ -0,0 +1,5 @@
+! { dg-do compile}
+program a
+   real x
+   x = 1e-20 / 1e+20  ! { dg-warning "Arithmetic underflow" "" }
+end program a