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

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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/arith_divide.f

+! { 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

gcc/testsuite/gfortran.dg/arith_divide_no_check.f

+! { 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

gcc/testsuite/gfortran.dg/old_style_init.f90

+!{ 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