This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[fortran patch] mores testsuite files
- From: "Davis, Jimmie" <jimmied at mail dot smu dot edu>
- To: "gcc-patches at gcc dot gnu dot org" <gcc-patches at gcc dot gnu dot org>, "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>
- Date: Mon, 22 Nov 2010 03:29:55 +0000
- Subject: [fortran patch] mores testsuite files
Just some more tests. They all pass.
2010-11-22 Bud Davis <jmdavis@link.com>
* arith_divide_no_check.f ,arith_divide.f,old_style_init.f90: new
tests.
--bud
Index: gcc/gcc/testsuite/gfortran.dg/arith_divide_no_check.f
===================================================================
--- gcc/gcc/testsuite/gfortran.dg/arith_divide_no_check.f (revision 0)
+++ gcc/gcc/testsuite/gfortran.dg/arith_divide_no_check.f (revision 0)
@@ -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
Index: gcc/gcc/testsuite/gfortran.dg/arith_divide.f
===================================================================
--- gcc/gcc/testsuite/gfortran.dg/arith_divide.f (revision 0)
+++ gcc/gcc/testsuite/gfortran.dg/arith_divide.f (revision 0)
@@ -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
Index: gcc/gcc/testsuite/gfortran.dg/old_style_init.f90
===================================================================
--- gcc/gcc/testsuite/gfortran.dg/old_style_init.f90 (revision 0)
+++ gcc/gcc/testsuite/gfortran.dg/old_style_init.f90 (revision 0)
@@ -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