diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 03e5d9b3a6734bbe74c5630c17fd85d4aa816b8f..e5191626a65f2f7e6335b39f9368ec4ff04bb53d 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 2f44a405872807a771887f161315fa14ec0b194f..dc4ff43cd479c56a42781be82d21acef9b0fefe4 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 0000000000000000000000000000000000000000..0c1018b593ba059efa2a7d200fdaa635a4d50a81
--- /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