diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd1007f761e..21e58d3e3a7 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-22  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/85841
+	* gfortran.dg/pr30667.f: Add option "-std=legacy".
+
 2018-05-22  Martin Sebor  <msebor@redhat.com>
 
 	PR middle-end/85359
diff --git a/gcc/testsuite/gfortran.dg/pr30667.f b/gcc/testsuite/gfortran.dg/pr30667.f
index 0f1af29d1f9..f5d55d8023a 100644
--- a/gcc/testsuite/gfortran.dg/pr30667.f
+++ b/gcc/testsuite/gfortran.dg/pr30667.f
@@ -1,6 +1,6 @@
 ! { dg-do compile { target i?86-*-* x86_64-*-* } }
 ! { dg-require-effective-target ilp32 }
-! { dg-options "-O2 -msse -ftree-vectorize" }
+! { dg-options "-O2 -msse -ftree-vectorize -std=legacy" }
       subroutine cblank_cvb(a,ndim)
       character*(*) a
       character*1 blank