OSDN Git Service

* gfortran.dg/underflow.f90: Use tiny(x)/huge(x).
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 14 Apr 2005 16:31:50 +0000 (16:31 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 14 Apr 2005 16:31:50 +0000 (16:31 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98142 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/underflow.f90

index 83d08f5..ef5ebd4 100644 (file)
@@ -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
index 0c1018b..c6c9c37 100644 (file)
@@ -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