From ab13f408ce00a144b9be5027c72f5dee3fb45887 Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Thu, 14 Apr 2005 16:31:50 +0000
Subject: [PATCH] * gfortran.dg/underflow.f90: Use tiny(x)/huge(x).

From-SVN: r98142
---
 gcc/testsuite/ChangeLog                 | 4 ++++
 gcc/testsuite/gfortran.dg/underflow.f90 | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 83d08f52ed2..ef5ebd421c7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2005-04-14  Steven G. Kargl  <kargls@comcast.net>
+
+	* gfortran.dg/underflow.f90: Use tiny(x)/huge(x).
+
 2005-04-14  Kazu Hirata  <kazu@cs.umass.edu>
 
 	PR tree-optimization/20657
diff --git a/gcc/testsuite/gfortran.dg/underflow.f90 b/gcc/testsuite/gfortran.dg/underflow.f90
index 0c1018b593b..c6c9c370e76 100644
--- a/gcc/testsuite/gfortran.dg/underflow.f90
+++ b/gcc/testsuite/gfortran.dg/underflow.f90
@@ -1,5 +1,5 @@
 ! { dg-do compile}
 program a
    real x
-   x = 1e-20 / 1e+20  ! { dg-warning "Arithmetic underflow" "" }
+   x = tiny(x) / huge(x)  ! { dg-warning "Arithmetic underflow" "" }
 end program a
-- 
2.30.2