gcc/testsuite/gfortran.dg/pr30667.f

   1 ! { dg-do compile { target i?86-*-* x86_64-*-* } }
   2 ! { dg-require-effective-target ilp32 }
   3 ! { dg-options "-O2 -msse -ftree-vectorize" }
   4       subroutine cblank_cvb(a,ndim)
   5       character*(*) a
   6       character*1 blank
   7       data blank/' '/
   8       do 100 i=1,ndim
   9 100   a(i:i)=blank
  10       end