diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-03-26 18:37:15 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-03-26 18:37:15 +0000 |
| commit | a59928bc28b0da6770ff3a50c8ffe0a51c879787 (patch) | |
| tree | d606faf598524d6b147e9c1a2c4e7c928347a58b | |
| parent | 4c54501bebda7bb7517efcad90e53f9b5ebddbf6 (diff) | |
| download | gcc-a59928bc28b0da6770ff3a50c8ffe0a51c879787.zip gcc-a59928bc28b0da6770ff3a50c8ffe0a51c879787.tar.gz gcc-a59928bc28b0da6770ff3a50c8ffe0a51c879787.tar.bz2 | |
gfortran.dg/underflow.f90: New test.
gfortran.dg/g77/20030326-1.f: Fix illegal code.
From-SVN: r97083
| -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 |