gfortran.dg/underflow.f90: New test.

gfortran.dg/g77/20030326-1.f:  Fix illegal code.

From-SVN: r97083

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/g77/20030326-1.f

-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

gcc/testsuite/gfortran.dg/underflow.f90

+! { dg-do compile}
+program a
+   real x
+   x = 1e-20 / 1e+20  ! { dg-warning "Arithmetic underflow" "" }
+end program a