diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 94285578b5ce..7bd5c28904e5 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-17  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	PR middle-end/33449
+	* gfortran.dg/pr33449.f90: New test.
+
 2007-09-17  Tobias Burnus  <burnus@net-b.de>
 
 	* gfortran.dg/interface_15.f90: Compile with -std=f95.
diff --git a/gcc/testsuite/gfortran.dg/pr33449.f90 b/gcc/testsuite/gfortran.dg/pr33449.f90
new file mode 100644
index 000000000000..98480b13e7af
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr33449.f90
@@ -0,0 +1,18 @@
+! { dg-do compile }
+! { dg-options "-O2 -ftree-vectorize" }
+!
+! Testcase for vectorization (see PR33449).
+!
+subroutine dlarre (w, iblock, work)
+  integer m, i, iblock(*)
+  double precision w(*), work(*)
+
+  m = 0
+  do jblk = 1, 10
+    do i = 1, 10
+      m = m + 1
+      w(m) = -work(i)
+      iblock(m) = 0
+    end do
+  end do
+end