diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/20030326-1.f | 23 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/underflow.f90 | 5 |
3 files changed, 19 insertions, 14 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 03e5d9b..e519162 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 2f44a40..dc4ff43 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 0000000..0c1018b --- /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 |