Subversion Repositories openrisc_me

! { dg-do compile { target i?86-*-* x86_64-*-* } }

! { dg-require-effective-target ilp32 }

! { dg-options "-O2 -msse -ftree-vectorize" }

! { dg-require-effective-target sse } 

      subroutine cblank_cvb(a,ndim)

      character*(*) a

      character*1 blank

      data blank/' '/

      do 100 i=1,ndim

100   a(i:i)=blank

      end