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 03e5d9b..e519162 100644 (file)
--- 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 2f44a40..dc4ff43 100644 (file)
--- 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 (file)
index 0000000..0c1018b
--- /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