diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0ba477c31e4..7d83cbbbe97 100644
--- 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 2ad791d3bbf..c5657833c0f 100644
--- 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