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

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

gcc/testsuite/ChangeLog

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

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