Patchwork [fortran] mores testsuite files

login
register
mail settings
Submitter Davis, Jimmie
Date Nov. 22, 2010, 3:29 a.m.
Message ID <00061D6890083E418784FC390A35E43702255D@SXMB1PG.SYSTEMS.SMU.EDU>
Download mbox | patch
Permalink /patch/72497/
State New
Headers show

Comments

Davis, Jimmie - Nov. 22, 2010, 3:29 a.m.
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
Steve Kargl - Nov. 25, 2010, 4:33 p.m.
On Mon, Nov 22, 2010 at 03:29:55AM +0000, Davis, Jimmie wrote:
> 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

Bud,

This is OK.  Do you still have write access?
Davis, Jimmie - Nov. 26, 2010, 4:11 p.m.
Transmitting file data ....
Committed revision 167182.

 

--bud

Patch

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