mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-12 09:44:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

gfortran.dg/underflow.f90: New test.

Browse Source 
gfortran.dg/g77/20030326-1.f:  Fix illegal code.

From-SVN: r97083
This commit is contained in:
Steven G. Kargl 2005-03-26 18:37:15 +00:00 committed by Steven G. Kargl
parent 4c54501beb
commit a59928bc28
3 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

23
gcc/testsuite/gfortran.dg/g77/20030326-1.f
View File

@ -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

5
gcc/testsuite/gfortran.dg/underflow.f90 Normal file
View File

@ -0,0 +1,5 @@
! { dg-do compile}
program a
real x
x = 1e-20 / 1e+20 ! { dg-warning "Arithmetic underflow" "" }
end program a