mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 04:00:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

arith_divide_no_check.f [...]: new tests.

Browse Source 
2010-11-22   Bud Davis  <jmdavis@link.com>
	* arith_divide_no_check.f ,arith_divide.f,old_style_init.f90: new
	tests.

From-SVN: r167182
This commit is contained in:
Bud Davis 2010-11-26 16:11:14 +00:00 committed by Bud Davis
parent ec0810c181
commit a50c005fea
4 changed files with 52 additions and 0 deletions

5
gcc/testsuite/ChangeLog

@ -1,3 +1,8 @@
2010-11-22 Bud Davis <jmdavis@link.com>
* arith_divide_no_check.f
,arith_divide.f,old_style_init.f90: new tests.
2010-11-26 H.J. Lu <hongjiu.lu@intel.com>
PR tree-optimization/46665

15
gcc/testsuite/gfortran.dg/arith_divide.f Normal file

@ -0,0 +1,15 @@
! { dg-do compile }
! This test executes all code paths in gfc_arith_divide
! when executed along with it's companion test
! arith_divide_no_check.f
implicit none
integer i,j
real a,b
complex c,d
i = 10/40
j = 10/0! { dg-error "Division by zero at" }
a = 10.0/40.0
b = 10.0/0.0! { dg-error "Division by zero at" }
c = (1.0,1.0)/(10.0,40.0) ! Not division by zero
d = (1.0,10.)/(0.0,0.0)! { dg-error "Division by zero at" }
end

17
gcc/testsuite/gfortran.dg/arith_divide_no_check.f Normal file

@ -0,0 +1,17 @@
! { dg-do compile }
! { dg-options "-fno-range-check" }
! This test executes all code paths in gfc_arith_divide
! when executed along with it's companion test
! arith_divide.f
implicit none
integer i,j
real a,b
complex c,d
i = 10/40
j = 10/0! { dg-error "Division by zero at" }
a = 10.0/40.0
b = 10.0/0.0
c = (1.0,1.0)/(10.0,40.0)
d = (1.0,10.)/(0.0,0.0)
end

15
gcc/testsuite/gfortran.dg/old_style_init.f90 Normal file

@ -0,0 +1,15 @@
!{ dg-do compile }
! this routine tests all the execution paths
! through the routine known as match_old_style_init()
! it does not make sense in any other context !!
subroutine sub1(Z) !{ dg-error "DATA attribute conflicts" }
integer Z/10/!{ dg-error "DATA"}
end
pure function pi(k)
integer ,intent(in) :: k
integer i / 10 / !{ dg-error "Initialization at " }
pi=3.0
end function pi
subroutine sub2
integer I / /!{ dg-error "Syntax error in DATA" }
end