diff --git a/gcc/testsuite/gfortran.dg/extract_recip_1.f b/gcc/testsuite/gfortran.dg/extract_recip_1.f
index f70157c6da25e6dbe309456eecada6a78317f97e..74d42a46696d1d13ad4cac3c41ed22fd4d879911 100644
--- a/gcc/testsuite/gfortran.dg/extract_recip_1.f
+++ b/gcc/testsuite/gfortran.dg/extract_recip_1.f
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! { dg-options "-Ofast -fdump-tree-optimized-raw" }
+! { dg-options "-Ofast -fno-tree-vectorize -fdump-tree-optimized-raw" }
 
       SUBROUTINE F(N,X,Y,Z,A,B)
           DIMENSION X(4,4), Y(4), Z(4)