blob: f5d55d8023a7a40fc5a6e6e88a046f28acd4e144 (
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 -std=legacy" }
subroutine cblank_cvb(a,ndim)
character*(*) a
character*1 blank
data blank/' '/
do 100 i=1,ndim
100 a(i:i)=blank
end
|
