OSDN Git Service

* gfortran.dg/underflow.f90: Use tiny(x)/huge(x).
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / underflow.f90
index 0c1018b..c6c9c37 100644 (file)
@@ -1,5 +1,5 @@
 ! { dg-do compile}
 program a
    real x
 ! { 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
 end program a