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