stfunc_6.f90: Extended testcase to include more tests related to PURE and statement...

2008-09-07  Daniel Kraft  <d@domob.eu>

	* gfortran.dg/stfunc_6.f90: Extended testcase to include more tests
	related to PURE and statement functions.

From-SVN: r140084

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0ba477c..7d83cbb 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-07  Daniel Kraft  <d@domob.eu>
+
+       * gfortran.dg/stfunc_6.f90: Extended testcase to include more tests
+       related to PURE and statement functions.
+
 2008-09-07  Dorit Nuzman  <dorit@il.ibm.com>
             Ira Rosen  <irar@il.ibm.com>
 

diff --git a/gcc/testsuite/gfortran.dg/stfunc_6.f90 b/gcc/testsuite/gfortran.dg/stfunc_6.f90
index 2ad791d..c565783 100644 (file)
--- a/gcc/testsuite/gfortran.dg/stfunc_6.f90
+++ b/gcc/testsuite/gfortran.dg/stfunc_6.f90
@@ -10,10 +10,13 @@
 
   INTEGER :: st1, i = 99, a(4), q = 6
   st1 (i) = i * i * i 
+  st3 (i) = i * v(i)
   FORALL(i=1:4) a(i) = st1 (i) 
   FORALL(i=1:4) a(i) = u (a(i)) - a(i)** 2 
   if (any (a .ne. 0)) call abort ()
   if (i .ne. 99) call abort ()
+  FORALL (i=1:4) a(i) = st3 (i) ! { dg-error "non-PURE function" "non-PURE reference in FORALL" { xfail *-*-*} }
+  FORALL (i=1:4) a(i) = v(i) ! { dg-error "non-PURE function" }
 contains
   pure integer function u (x)
     integer,intent(in) :: x