diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-26 18:37:15 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-26 18:37:15 +0000 |
| commit | ac7ceb7198461c406c3608466754be5c23c9629a (patch) | |
| tree | d606faf598524d6b147e9c1a2c4e7c928347a58b /gcc | |
| parent | c98d52b713dc6a5191d0056eb8c249c90ec16c58 (diff) | |
| download | gcc-ac7ceb7198461c406c3608466754be5c23c9629a.tar.gz | |
gfortran.dg/underflow.f90: New test.
gfortran.dg/g77/20030326-1.f: Fix illegal code.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97083 138bc75d-0d04-0410-961f-82ee72b054a4
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 03e5d9b3a67..e5191626a65 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 2f44a405872..dc4ff43cd47 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 00000000000..0c1018b593b --- /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 |