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
9100 a(i:i)=blank
10 end
11